%I A109662
%S A109662 1,2,3,9,14,15,29,33,45,81,102,105,126,142,157,288,414,1184,2133
%N A109662 Numbers n such that the sum of the digits of (n^n - n!) is divisible 
               by n.
%C A109662 Next term after 2133 is greater than 10000.
%e A109662 The digits of 414^414 - 414! sum to 4968 and 4968 is divisible by 414, 
               so 414 is in the sequence.
%t A109662 Do[s = n^n - n!; k = Plus @@ IntegerDigits[s]; If[Mod[k, n] == 0, Print[n]], 
               {n, 1, 10000}]
%Y A109662 Sequence in context: A123859 A048744 A057293 this_sequence A116222 A048038 
               A113501
%Y A109662 Adjacent sequences: A109659 A109660 A109661 this_sequence A109663 A109664 
               A109665
%K A109662 base,more,nonn
%O A109662 1,2
%A A109662 Ryan Propper (rpropper(AT)stanford.edu), Aug 06 2005