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 A113735 #15 May 07 2019 23:32:40
%S A113735 1,14,17,154,1196,26979,66079,279174,1698619,9397685,302768895,
%T A113735 594963655,2249805789,6794867989,9785759929,75077778589,
%U A113735 67471872963495,34976979277935695,275776822479793635,459267544887917766,34678475798796583278525
%N A113735 Let prime(0) = 1 and f(n) = product prime(d), where d ranges over all the decimal digits of n. The sequence gives numbers n such that f(n) == 0 (mod n).
%t A113735 f[n_] := Times @@ (IntegerDigits[n] /. {0 -> 1, 1 -> 2, 2 -> 3, 3 -> 5, 4 -> 7, 5 -> 11, 6 -> 13, 7 -> 17, 8 -> 19, 9 -> 23}); Do[ If[ Mod[ f[n], n] == 0, Print[n]], {n, 10^8}]
%Y A113735 Cf. A113581. Superset of A097227.
%K A113735 base,more,nonn
%O A113735 1,2
%A A113735 _Amarnath Murthy_ and _Robert G. Wilson v_, Nov 08 2005
%E A113735 a(11)-a(16) from _Giovanni Resta_, Aug 09 2017
%E A113735 a(17)-a(21) from _Chai Wah Wu_, May 07 2019