User blog comment:Deedlit11/Bignum Bakeoff appetizer/@comment-67.71.64.178-20180213123548

Scheme, 121 characters: (define (p n x)  (if (and (cdr x) (> n 0)) (cons (p (- n 1) x) (p n (cdr x))) (car x))) (display  (do ((n 9 (* n n))        (x '(#f #f #f #f #f . #f) (p n x))) ((not x) n))) This is based on a table of Busy Beaver lower bounds in Scheme that I have been composing in my spare time. I took the first entry in my table that is big enough, added whitespace, and added a call to "display" that wasn't present in the original (and which I'm not sure is necessary; removing the call would reduce it to 112 characters).