A128836 Numbers k such that partition number p(k) == 1 (mod k).

1, 4, 7, 11, 54, 55, 115, 146, 157, 234, 239, 951, 272732, 419192, 7626972, 38355152

Offset

1,2

Comments

Numbers k such that A093952(k) = 1.

There are no other terms below 10^8. - Max Alekseyev, May 19 2014

Links

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

Eric Weisstein's World of Mathematics, Partition Function P

Mathematica

Join[{1}, Select[Range[1000], Mod[PartitionsP[#], #]==1&]] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Jan 25 2026 *)

Crossrefs

Cf. A000041, A051177, A093952, A121015, A203023.

Sequence in context: A396313 A179165 A369546 * A061956 A327429 A178939

Adjacent sequences: A128833 A128834 A128835 * A128837 A128838 A128839

Keyword

hard,more,nonn

Author

Max Alekseyev, Klaus Brockhaus, Robert G. Wilson v and Zak Seidov, Mar 28 2007

Extensions

a(16) from Max Alekseyev, Jan 15 2013

Status

approved