OFFSET
1,1
COMMENTS
Here 0 is regarded as not divisible by any number.
a(n) = 0 if 10 divides n or n contains a prime divisor > 9. - Sascha Kurz, Aug 23 2002
FORMULA
a(n) = A085124(8*n). - R. J. Mathar, Jun 21 2018
MAPLE
f := 8:for i from 1 to 400 do b := ifactors(f*i)[2]: if b[nops(b)][1]>9 or (f*i mod 10) =0 then a[i] := 0:else j := 0:while true do j := j+f*i:c := convert(j, base, 10): d := product(c[k], k=1..nops(c)): if (d mod f*i)=0 and d>0 then a[i] := j:break:fi: od:fi:od:seq(a[k], k=1..400);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Aug 18 2002
EXTENSIONS
More terms from Sascha Kurz, Aug 23 2002
STATUS
approved