OFFSET
1,2
MATHEMATICA
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}]
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Amarnath Murthy and Robert G. Wilson v, Nov 08 2005
EXTENSIONS
a(11)-a(16) from Giovanni Resta, Aug 09 2017
a(17)-a(21) from Chai Wah Wu, May 07 2019
STATUS
approved