OFFSET
1,2
COMMENTS
Next term, if it exists, is greater than 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 15 2001
EXTENSIONS
Wrong term 38974 removed by Vaclav Kotesovec, May 05 2018
a(7)-a(8) from Vaclav Kotesovec, May 05 2018
STATUS
approved