|
| |
|
|
A284567
|
|
a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).
|
|
5
|
|
|
|
1, 1, 2, 6, 24, 120, 20, 140, 70, 630, 63, 693, 8316, 108108, 30888, 51480, 823680, 14002560, 777920, 14780480, 739024, 15519504, 2821728, 64899744, 43266496, 1081662400, 166409600, 4493059200, 160466400, 4653525600, 3877938000, 120216078000, 15027009750, 495891321750, 14585038875, 20419054425, 9075135300, 335780006100
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Antti Karttunen, Table of n, a(n) for n = 0..256
|
|
|
FORMULA
|
a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).
n!/a(n) = A284568(n).
A001222(a(n)) = A284561(n).
|
|
|
PROG
|
(Scheme)
(define (A284567 n) (let loop ((n n) (acc 1)) (if (zero? n) acc (loop (- n 1) (A059897bi acc n))))) ;; For A059897bi see under A059897.
(definec (A284567 n) (if (zero? n) 1 (A059897bi n (A284567 (- n 1)))))
|
|
|
CROSSREFS
|
Cf. A000142, A001222, A003418, A059897, A066616, A284561, A284568.
Sequence in context: A358611 A092495 A110808 * A360300 A065422 A260850
Adjacent sequences: A284564 A284565 A284566 * A284568 A284569 A284570
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Antti Karttunen, Apr 12 2017
|
|
|
STATUS
|
approved
|
| |
|
|
