A064681 a(n) = number of partitions of n! into distinct parts.

1, 1, 1, 4, 122, 2194432, 1860799032530519872, 26520691877985842130274557505490676978655683245437940

Offset

0,4

Links

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

Formula

a(n) = A000009(A000142(n)). - Michel Marcus, Jan 11 2015

Mathematica

a[n_]:=PartitionsQ[n! ]; lst={}; Do[AppendTo[lst, a[n]], {n, 0, 8}]; lst (* Vladimir Joseph Stephan Orlovsky, Dec 22 2008 *)

Prog

(PARI) a(n) = polcoeff(prod(k=1, n, 1+x^k, 1+x*O(x^n)), n) for(n=0, 23, print(a(n!)))

Crossrefs

Cf. A000009.

Sequence in context: A268006 A144993 A377755 * A219871 A263550 A232592

Adjacent sequences: A064678 A064679 A064680 * A064682 A064683 A064684

Keyword

nonn

Author

Jason Earls, Oct 10 2001

Extensions

One more term from Vladeta Jovovic, Oct 13 2001

Status

approved