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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A329307 A336088 A255159 * A255152 A159652 A038641

Adjacent sequences: A071747 A071748 A071749 * A071751 A071752 A071753

Keyword

nonn,easy

Author

Benoit Cloitre, Jun 24 2002

Extensions

Edited by Robert G. Wilson v, Jun 27 2002

Status

approved