OFFSET
1,2
COMMENTS
EXAMPLE
19 is in the sequence because 19 divides 1! + 9! = 1 + 362880 = 362881; 362881 / 19 = 19099.
MATHEMATICA
Select[Range[50000], Mod[Plus @@ Factorial[IntegerDigits[#]], #] == 0 &] (* Michael De Vlieger, Dec 26 2014 *)
PROG
(Magma) [n: n in [1..2000000] | &+[ Factorial(d): d in Intseq(n)] mod n eq 0]
(PARI) for(k=1, 10^5, d=digits(k); s=sum(i=1, #d, d[i]!); if(!(s%k), print1(k, ", "))) \\ Derek Orr, Dec 30 2014
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Jaroslav Krizek, Dec 25 2014
STATUS
approved