1,2

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

Sequence in context: A157561 A157590 A157236 this_sequence A158469 A032594 A159658

Adjacent sequences: A058853 A058854 A058855 this_sequence A058857 A058858 A058859

nonn

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