This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093325 #13 Sep 08 2022 08:45:13 %S A093325 1,2,10,12,21,32,104,111,112,120,145,200,220,222,224,341,403,441,1000, %T A093325 1020,1100,1120,1122,1200,1204,1210,1212,1230,1232,1320,1330,2000, %U A093325 2010,2030,2100,2110,2112,2123,2125,2130,2204,2212,2232,2250,2300,2310,2321 %N A093325 Numbers that are divisible by the sum of the factorials of their digits. %H A093325 Amiram Eldar, <a href="/A093325/b093325.txt">Table of n, a(n) for n = 1..10000</a> %e A093325 104 is a term because 1!+0!+4!=26 and 104/26=4. %t A093325 seqQ[n_] := Divisible[n, Total@(Factorial /@ IntegerDigits[n])]; Select[Range[2500], seqQ] (* _Amiram Eldar_, Dec 16 2019 *) %o A093325 (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 %Y A093325 Cf. A005349, A061602. %K A093325 base,easy,nonn %O A093325 1,2 %A A093325 _Jason Earls_, May 11 2004