OFFSET
0,4
FORMULA
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
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 10 2001
EXTENSIONS
One more term from Vladeta Jovovic, Oct 13 2001
STATUS
approved