|
%I #12 Apr 12 2017 04:43:19
%S 1,1,2,6,24,120,20,140,70,630,63,693,8316,108108,30888,51480,823680,
%T 14002560,777920,14780480,739024,15519504,2821728,64899744,43266496,
%U 1081662400,166409600,4493059200,160466400,4653525600,3877938000,120216078000,15027009750,495891321750,14585038875,20419054425,9075135300,335780006100
%N a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).
%H Antti Karttunen, <a href="/A284567/b284567.txt">Table of n, a(n) for n = 0..256</a>
%F a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).
%F n!/a(n) = A284568(n).
%F A001222(a(n)) = A284561(n).
%o (Scheme)
%o (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 (definec (A284567 n) (if (zero? n) 1 (A059897bi n (A284567 (- n 1)))))
%Y Cf. A000142, A001222, A003418, A059897, A066616, A284561, A284568.
%K nonn
%O 0,3
%A _Antti Karttunen_, Apr 12 2017
|
