A056872 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, 5, 25, 42, 133, 618, 643, 701, 1962, 8150, 147458, 168459, 356038, 415870, 536685, 637757, 1093612, 1207618, 3368325, 3470706, 23400631, 37621653

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, A056873, A121919. A128836, A162468, A259943.

Programs

Mathematica

Do[ If[ Mod[ PartitionsP[ n ] + PartitionsQ[ n ], n ] == 0, Print[ n ] ], {n, 1, 8150} ]

Extensions

a(11)-a(18) from Sean A. Irvine, May 12 2022

a(19)-a(22) from Max Alekseyev, Oct 12 2023