OFFSET
1,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..1000
MAPLE
A178413 := proc(n) option remember: local k, q: if(n=1)then return 1: fi: for k from procname(n-1)+1 do q:=mul(d, d=convert(k, base, 10)): if(q>0 and k+1 mod q = 0)then return k: fi: od: end: seq(A178413(n), n=1..48); # Nathaniel Johnston, May 27 2011
MATHEMATICA
Select[Range[2500], FreeQ[IntegerDigits[#], 0]&&Mod[#+1, Times@@IntegerDigits[#]]==0&] (* Harvey P. Dale, Jul 25 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Teofilatto, May 27 2010
EXTENSIONS
More terms from R. J. Mathar, May 28 2010
STATUS
approved