1,2

s = 0; Do[ s = s + PartitionsP[ n ]; If[ IntegerQ[ s/n ], Print[ n ] ], {n, 1, 10^5} ]

Adjacent sequences: A058853 A058854 A058855 this_sequence A058857 A058858 A058859

Sequence in context: A103503 A157561 A157590 this_sequence A158469 A032594 A093978

nonn

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