OFFSET
1,2
EXAMPLE
54 is in the list because 5! = 120, 4! = 24, 120*24=2880, 120+24=144, 2880+144=3024, 3024/54=56.
MATHEMATICA
fQ[n_] := Block[{d = IntegerDigits[n]!}, Mod[Times @@ d + Total@ d, n] == 0]; Select[Range@ 1000000, fQ] (* Michael De Vlieger, Aug 26 2015 *)
PROG
(PARI) isok(n) = my(d = digits(n)); ((sum(k=1, #d, d[k]!)+prod(k=1, #d, d[k]!)) % n) == 0; \\ Michel Marcus, Aug 25 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo Omodei-Zorini, Aug 24 2015
EXTENSIONS
a(24)-a(25) from Jon E. Schoenfield, Aug 24 2015
a(26)-a(30) from Giovanni Resta, Aug 26 2015
a(31)-a(34) from Chai Wah Wu, May 04 2019
a(35) from Giovanni Resta, Aug 19 2019
STATUS
approved