A058856 Numbers k that divide the sum of the partition numbers to k.

1, 3, 188, 378, 836, 10179, 15685, 36769, 53088, 1112873, 3717191, 12019123

Offset

1,2

Comments

Next term > 2000000. - Vaclav Kotesovec, May 05 2018

Next term > 12500000. - Sean A. Irvine, Aug 30 2022

Links

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

Mathematica

s = 0; Do[ s = s + PartitionsP[ n ]; If[ IntegerQ[ s/n ], Print[ n ] ], {n, 1, 10^5} ]

Crossrefs

Sequence in context: A157561 A157590 A157236 * A158469 A261000 A365447

Adjacent sequences: A058853 A058854 A058855 * A058857 A058858 A058859

Keyword

nonn,more

Author

Robert G. Wilson v, Jan 05 2001

Extensions

a(10) from Vaclav Kotesovec, May 05 2018

a(11)-a(12) from Sean A. Irvine, Aug 30 2022

Status

approved