|
|
A056873
|
|
Numbers k such that k | p(k) - q(k) where p(k) = partition numbers (A000041) and q(k) = partition numbers into distinct parts (A000009).
|
|
1
|
|
|
1, 8, 11, 34, 310, 1688, 2307, 2708, 13988, 21315, 46739, 426378, 771476, 11762557, 18628390, 19841526, 24396168, 85110245
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|