login
A071750
Numbers k such that 13 divides p(k), the k-th partition number, A000041(k).
3
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
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
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Jun 24 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 27 2002
STATUS
approved