OFFSET
1,1
COMMENTS
Here 0 is regarded as not divisible by any number.
a(n) = 0 if 10 divides 3n or n contains a prime divisor > 9. - Sascha Kurz, Aug 23 2002
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A085124(3*n). - R. J. Mathar, Jun 21 2018
MAPLE
f := 3:for i from 1 to 1000 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..1000);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Aug 18 2002
EXTENSIONS
More terms from Sascha Kurz, Aug 23 2002
STATUS
approved