ラビット数であることが判明
3016028607486216816412615723135655359402744334801831027226880476662858668923108844261004981139792742133847781587038964568550824358875388606032741472827044820329394758238246923457181366
(let ((n '(1))) (defun rabbit () (let (temp oldn) (dolist (i n) (if (= 0 i) (push 1 temp) (progn (push 1 temp) (push 0 temp)))) (setf oldn n) (setf n (nreverse temp)) ;(format t "~a ~%" temp) oldn))) (defun list-to-num (lst) (let ((rv 0)) (dolist (i lst) (setf rv (+ (* rv 2) i))) rv))