This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A284567 #12 Apr 12 2017 04:43:19 %S A284567 1,1,2,6,24,120,20,140,70,630,63,693,8316,108108,30888,51480,823680, %T A284567 14002560,777920,14780480,739024,15519504,2821728,64899744,43266496, %U A284567 1081662400,166409600,4493059200,160466400,4653525600,3877938000,120216078000,15027009750,495891321750,14585038875,20419054425,9075135300,335780006100 %N A284567 a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)). %H A284567 Antti Karttunen, <a href="/A284567/b284567.txt">Table of n, a(n) for n = 0..256</a> %F A284567 a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)). %F A284567 n!/a(n) = A284568(n). %F A284567 A001222(a(n)) = A284561(n). %o A284567 (Scheme) %o A284567 (define (A284567 n) (let loop ((n n) (acc 1)) (if (zero? n) acc (loop (- n 1) (A059897bi acc n))))) ;; For A059897bi see under A059897. %o A284567 (definec (A284567 n) (if (zero? n) 1 (A059897bi n (A284567 (- n 1))))) %Y A284567 Cf. A000142, A001222, A003418, A059897, A066616, A284561, A284568. %K A284567 nonn %O A284567 0,3 %A A284567 _Antti Karttunen_, Apr 12 2017