login
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
OFFSET
1,2
COMMENTS
No other terms below 10^8. - Max Alekseyev, Oct 12 2023
MATHEMATICA
Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Sep 02 2000
EXTENSIONS
a(10)-a(13) from Sean A. Irvine, May 12 2022
a(14)-a(18) from Max Alekseyev, Oct 12 2023
STATUS
approved