1,2
s = 0; Do[ s = s + PartitionsQ[ n ]; If[ Mod[ s, n ] == 0, Print[ n ] ], { n, 1, 8000} ]
Sequence in context: A198014 A188577 A064705 * A073307 A064009 A201348
Adjacent sequences: A058855 A058856 A058857 * A058859 A058860 A058861
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 05 2001