A109676 - OEIS

%I #6 Oct 02 2013 15:12:47

%S 1,25,68,269,427,1996,5405,42511,42862

%N Numbers n such that the sum of the digits of (n! - 1) is divisible by n.

%C Next term after 42862 (if it exists) is greater than 750,000.

%e The digits of 5405! - 1 sum to 86480 and 86480 is divisible by 5405, so 5405 is in the sequence.

%t Do[k = n! - 1; s = Plus @@ IntegerDigits[k]; If[Mod[s, n] == 0, Print[n]], {n, 1, 10^5}]

%K base,hard,more,nonn

%O 1,2

%A _Ryan Propper_, Aug 06 2005