ラビット数であることが判明

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))