login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #12 Aug 30 2022 18:57:07

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

%N Numbers k that divide the sum of the partition numbers to k.

%C Next term > 2000000. - _Vaclav Kotesovec_, May 05 2018

%C Next term > 12500000. - _Sean A. Irvine_, Aug 30 2022

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

%K nonn,more

%O 1,2

%A _Robert G. Wilson v_, Jan 05 2001

%E a(10) from _Vaclav Kotesovec_, May 05 2018

%E a(11)-a(12) from _Sean A. Irvine_, Aug 30 2022