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,2

Comments

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

Links

Table of n, a(n) for n=1..18.

Mathematica

Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]

Crossrefs

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

Sequence in context: A243975 A160796 A160416 * A303883 A304889 A192427

Adjacent sequences: A056870 A056871 A056872 * A056874 A056875 A056876

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