A153253 a(n)=A000009(n!!).

1, 1, 1, 2, 6, 27, 2910, 671418, 5925456572864, 1819432729601465049152, 2527141116269870093700549820547891617386696704, 37871241077229684530428945247828504758290562881908101848856901884765190234112

Offset

1,4

Links

Table of n, a(n) for n=1..12.

Mathematica

a[n_]:=PartitionsQ[n!! ]; lst={}; Do[AppendTo[lst, a[n]], {n, 0, 12}]; lst

Crossrefs

Sequence in context: A113731 A113676 A183323 * A174880 A303394 A074925

Adjacent sequences: A153250 A153251 A153252 * A153254 A153255 A153256

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 21 2008

Extensions

Edited by N. J. A. Sloane, Dec 30 2008

Status

approved