OFFSET
1,2
COMMENTS
Next term > 2000000. - Vaclav Kotesovec, May 05 2018
MATHEMATICA
s = 0; Do[ s = s + PartitionsP[n] + PartitionsQ[n]; If[ Mod[ s, n] == 0, Print[n] ], {n, 1, 53100} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 18 2001
EXTENSIONS
Wrong term 40956 removed by Vaclav Kotesovec, May 05 2018
a(15)-a(17) from Vaclav Kotesovec, May 05 2018
STATUS
approved