A071750 Numbers k such that 13 divides p(k), the k-th partition number, A000041(k).

28, 62, 84, 94, 129, 136, 173, 180, 197, 213, 219, 226, 227, 237, 240, 264, 294, 311, 318, 326, 335, 338, 357, 358, 389, 418, 453, 458, 473, 482, 484, 486, 508, 529, 538, 542, 562, 600, 635, 644, 668, 670, 684, 697, 699, 713, 714, 727, 742, 747, 751, 778

Offset: 1

Author

Benoit Cloitre, Jun 24 2002

Keywords

• nonn
• easy

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000041, A027827, A243935 (see crossrefs).

Programs

Mathematica

Select[ Range[800], Mod[ PartitionsP[ # ], 13] == 0 &]

PARI

\ps800 for(n=0,600,if(polcoeff(1/eta(x),n,x)%13==0,print1(n,",")))

PARI

is(n)=numbpart(n)%13==0 \\ Charles R Greathouse IV, Apr 08 2015

Extensions

Edited by Robert G. Wilson v, Jun 27 2002