%I A058856
%S A058856 1,3,188,378,836,10179,15685,36769,53088
%N A058856 Numbers n such that n divides the sum of the partition numbers to n.
%t A058856 s = 0; Do[ s = s + PartitionsP[ n ]; If[ IntegerQ[ s/n ], Print[ n ] 
               ], {n, 1, 10^5} ]
%Y A058856 Sequence in context: A157561 A157590 A157236 this_sequence A158469 A032594 
               A159658
%Y A058856 Adjacent sequences: A058853 A058854 A058855 this_sequence A058857 A058858 
               A058859
%K A058856 nonn
%O A058856 1,2
%A A058856 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 05 2001