OFFSET
0,3
FORMULA
MATHEMATICA
a[n_]:=PartitionsQ[n^n]; lst={}; Do[AppendTo[lst, a[n]], {n, 0, 3!}]; lst (* Vladimir Joseph Stephan Orlovsky, Dec 03 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^n)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 10 2001
EXTENSIONS
Next term is 841043474026501008459...7883814176 (166 digits) - David Wasserman, Aug 01 2002
STATUS
approved