login
Numbers k that divide the sum of the first k partition numbers (A000041) and the sum of the first k unique partition numbers (A000009).
0

%I #15 Aug 09 2021 21:10:18

%S 1,6,10,14,56,239,623,874,1246,2462,4711,16003,31486,32081,45115,

%T 143777,171271

%N Numbers k that divide the sum of the first k partition numbers (A000041) and the sum of the first k unique partition numbers (A000009).

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

%t s = 0; Do[ s = s + PartitionsP[n] + PartitionsQ[n]; If[ Mod[ s, n] == 0, Print[n] ], {n, 1, 53100} ]

%Y Cf. A000041 and A000009.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Jan 18 2001

%E Wrong term 40956 removed by _Vaclav Kotesovec_, May 05 2018

%E a(15)-a(17) from _Vaclav Kotesovec_, May 05 2018