|
%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
|
