A093325 Numbers that are divisible by the sum of the factorials of their digits.
1, 2, 10, 12, 21, 32, 104, 111, 112, 120, 145, 200, 220, 222, 224, 341, 403, 441, 1000, 1020, 1100, 1120, 1122, 1200, 1204, 1210, 1212, 1230, 1232, 1320, 1330, 2000, 2010, 2030, 2100, 2110, 2112, 2123, 2125, 2130, 2204, 2212, 2232, 2250, 2300, 2310, 2321
Offset: 1
Examples
104 is a term because 1!+0!+4!=26 and 104/26=4.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Magma
f:=func< n|&+[Factorial(Intseq(n)[i]):i in [1..#Intseq(n)]]>; [k:k in [1..2500]| k mod f(k) eq 0]; // Marius A. Burtea, Dec 16 2019
-
Mathematica
seqQ[n_] := Divisible[n, Total@(Factorial /@ IntegerDigits[n])]; Select[Range[2500], seqQ] (* Amiram Eldar, Dec 16 2019 *)