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

Comments

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

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A250314 A293571 A294256 * A029490 A223654 A362092

Adjacent sequences: A056869 A056870 A056871 * A056873 A056874 A056875

Keyword

nonn,more

Author

Robert G. Wilson v, Sep 02 2000

Extensions

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

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

Status

approved