OFFSET
1,2
COMMENTS
Next term after 42862 (if it exists) is greater than 750,000.
EXAMPLE
The digits of 5405! - 1 sum to 86480 and 86480 is divisible by 5405, so 5405 is in the sequence.
MATHEMATICA
Do[k = n! - 1; s = Plus @@ IntegerDigits[k]; If[Mod[s, n] == 0, Print[n]], {n, 1, 10^5}]
CROSSREFS
KEYWORD
base,hard,more,nonn
AUTHOR
Ryan Propper, Aug 06 2005
STATUS
approved