%I A109658
%S A109658 1,2,3,9,11,18,54,74,108,135,426,531,585,1361,3456,6771,7245,7392,11025,
%T A109658 11957,21494,27063,41952,68494,72516
%N A109658 Numbers n such that the sum of the digits of n^sigma(n) is divisible 
               by n.
%e A109658 The sum of the integer digits of 531^sigma(531) is 9558 and 9558 is divisible 
               by 531, so 531 is in the sequence.
%t A109658 Do[s = n^DivisorSigma[1, n]; k = Plus @@ IntegerDigits[s]; If[Mod[k, 
               n] == 0, Print[n]], {n, 1, 10000}]
%Y A109658 Sequence in context: A110772 A074338 A111319 this_sequence A110350 A057569 
               A049618
%Y A109658 Adjacent sequences: A109655 A109656 A109657 this_sequence A109659 A109660 
               A109661
%K A109658 base,nonn
%O A109658 1,2
%A A109658 Ryan Propper (rpropper(AT)stanford.edu), Aug 06 2005
%E A109658 More terms from Ryan Propper (rpropper(AT)stanford.edu), Oct 10 2005