A035142 Numbers k with property that number of partitions-into-distinct-parts of k is a perfect square.

0, 1, 2, 6, 20, 29, 46

Offset: 1

Author

Olivier Gérard

Keywords

• nonn

Comments

Next term, if it exists, is greater than 50000. - David Wasserman, Aug 06 2002

Crossrefs

Cf. A000009.

Programs

Mathematica

okQ[n_] := IntegerQ[Sqrt[PartitionsQ[n]]]; Select[Range[10000], okQ] (* Harvey P. Dale, Mar 13 2011 *)

PARI

q(n)= polcoeff(prod(k=1,n,1+x^k,1+x*O(x^n)), n)
for(n=0,1000, if(issquare(q(n)),print1(n,",")))

Extensions

Entry revised by N. J. A. Sloane, Jul 23 2006