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

Author

Robert G. Wilson v, Sep 02 2000

Keywords

• nonn
• more

Comments

No other terms below 10^8. - Max Alekseyev, Oct 12 2023

Crossrefs

Cf. A000009, A000041, A051177, A056848, A056872, A121919. A128836, A162468, A259943.

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