A284567 a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).

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

Offset: 0

Author

Antti Karttunen, Apr 12 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..256

Crossrefs

Cf. A000142, A001222, A003418, A059897, A066616, A284561, A284568.

Programs

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

Formula

a(0) = 1; for n >= 1, a(n) = A059897(n, a(n-1)).

n!/a(n) = A284568(n).

A001222(a(n)) = A284561(n).