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, 8, 11, 34, 310, 1688, 2307, 2708, 13988, 21315, 46739, 426378, 771476, 11762557, 18628390, 19841526, 24396168, 85110245
Offset: 1
Programs
-
Mathematica
Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
Extensions
a(10)-a(13) from Sean A. Irvine, May 12 2022
a(14)-a(18) from Max Alekseyev, Oct 12 2023
Comments