A064682 a(n) = number of partitions of n^n into distinct parts.

1, 1, 2, 192, 11784471548, 49119584729121300101049137845273511977280

Offset: 0

Author

Jason Earls, Oct 10 2001

Keywords

• nonn

Crossrefs

Cf. A000009.

Programs

Mathematica

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

PARI

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

Formula

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

Extensions

Next term is 841043474026501008459...7883814176 (166 digits) - David Wasserman, Aug 01 2002