1,3
a[n_]:=PartitionsP[n!! ]; lst={}; Do[AppendTo[lst, a[n]], {n, 0, 13}]; lst
Sequence in context: A154254 A166122 A114996 * A137077 A046965 A119679
Adjacent sequences: A153253 A153254 A153255 * A153257 A153258 A153259
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 22 2008
Edited by N. J. A. Sloane (njas(AT)research.att.com), Dec 30 2008