A057527 4th level factorials: product of first n superduperfactorials.

1, 1, 2, 48, 331776, 79254226206720, 471092427871945743012986880000, 351177419973413722592573060611594181593855426560000000000

Offset

0,3

Comments

In general for k-th level factorials a(n) =Product of first n (k-1)-th level factorials =Product[i^C(n-i+k-1,n-i)] over 1<=i<=n.

Links

Table of n, a(n) for n=0..7.

Formula

a(n) =a(n-1)*A055462(n) =Product[i^A000332(n-i)] over 1<=i<=n.

a(n) ~ exp(11/72 - 5*n/6 - 4*n^2/3 - 11*n^3/18 - 25*n^4/288 + Zeta(3)*(n+2) / (8*Pi^2) + Zeta'(-3)/6) * n^(251/720 + n + 11*n^2/12 + n^3/3 + n^4/24) * (2*Pi)^((n+1)*(n+2)*(n+3)/12) / A^(11/6 + 2*n + n^2/2), where Zeta(3) = A002117, Zeta'(-3) = A259068 = 0.0053785763577743011444169742104138428956644397... and A = A074962 = 1.28242712910062263687534256886979... is the Glaisher-Kinkelin constant. - Vaclav Kotesovec, Jul 24 2015

Example

a(4) =((4!*3!*2!*1!)*(3!*2!*1!)*(2!*1!)*(1!)) * ((3!*2!*1!)*(2!*1!)*(1!)) * ((2!*1!)*(1!)) * ((1!)) =24*6^3*2^6*1^10 =331776

Mathematica

Table[Product[i^Binomial[n-i+3, 3], {i, 1, n}], {n, 0, 10}] (* Vaclav Kotesovec, Jul 24 2015 *)
Nest[FoldList[Times, #]&, Range[0, 8]!, 3] (* Harvey P. Dale, Jan 08 2024 *)

Crossrefs

Cf. A000142, A000178, A055462, A057528, A260404 for first, second, third, fifth and sixth level factorials.

Sequence in context: A191954 A344665 A212170 * A166475 A152688 A046873

Adjacent sequences: A057524 A057525 A057526 * A057528 A057529 A057530

Keyword

easy,nonn

Author

Henry Bottomley, Sep 02 2000

Status

approved