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,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

104 is a term because 1!+0!+4!=26 and 104/26=4.

Mathematica

seqQ[n_] := Divisible[n, Total@(Factorial /@ IntegerDigits[n])]; Select[Range[2500], seqQ] (* Amiram Eldar, Dec 16 2019 *)

Prog

(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

Crossrefs

Cf. A005349, A061602.

Sequence in context: A130842 A061818 A166938 * A001363 A022367 A004686

Adjacent sequences: A093322 A093323 A093324 * A093326 A093327 A093328

Keyword

base,easy,nonn

Author

Jason Earls, May 11 2004

Status

approved