|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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, ", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|