1,2

s = 0; Do[ s = s + PartitionsQ[ n ]; If[ Mod[ s, n ] == 0, Print[ n ] ], { n, 1, 8000} ]

Sequence in context: A166830 A072779 A064705 this_sequence A073307 A064009 A102713

Adjacent sequences: A058855 A058856 A058857 this_sequence A058859 A058860 A058861

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 05 2001