%I A109676
%S A109676 1,25,68,269,427,1996,5405,42511,42862
%N A109676 Numbers n such that the sum of the digits of (n! - 1) is divisible by 
               n.
%C A109676 Next term after 42862 is greater than 100,000.
%e A109676 The digits of 5405! - 1 sum to 86480 and 86480 is divisible by 5405, 
               so 5405 is in the sequence.
%t A109676 Do[k = n! - 1; s = Plus @@ IntegerDigits[k]; If[Mod[s, n] == 0, Print[n]], 
               {n, 1, 10^5}]
%Y A109676 Sequence in context: A033682 A020283 A137186 this_sequence A087239 A032653 
               A063308
%Y A109676 Adjacent sequences: A109673 A109674 A109675 this_sequence A109677 A109678 
               A109679
%K A109676 base,hard,more,nonn
%O A109676 1,2
%A A109676 Ryan Propper (rpropper(AT)stanford.edu), Aug 06 2005