|
| |
|
|
A035142
|
|
Numbers n with property that number of partitions-into-distinct-parts of n is a perfect square.
|
|
1
| | |
|
|
|
OFFSET
| 1,3
|
|
|
MATHEMATICA
| okQ[n_] := IntegerQ[Sqrt[PartitionsQ[n]]]; Select[Range[10000], okQ] (* From Harvey P. Dale, Mar 13 2011 *)
|
|
|
PROG
| (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, ", ")))
|
|
|
CROSSREFS
| Cf. A000009.
Sequence in context: A062281 A131441 * A064701 A181558 A202963 A130315
Adjacent sequences: A035139 A035140 A035141 * A035143 A035144 A035145
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Olivier Gerard (olivier.gerard(AT)gmail.com)
|
|
|
EXTENSIONS
| Next term, if it exists, is greater than 50000. - David Wasserman (wasserma(AT)spawar.navy.mil), Aug 06 2002
Entry revised by N. J. A. Sloane (njas(AT)research.att.com), Jul 23 2006
|
| |
|
|
