OFFSET
1,1
COMMENTS
If prime(k) is in A130338 then a(k) = 0.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..20000
EXAMPLE
A001101(1) = 18 and 18 / digsum(18) = 18/9 = 2 = prime(1), so a(1) = 18.
A001101(2) = 21 and 21 / digsum(21) = 21/3 = 7 = prime(4), so a(4) = 21.
A001101(3) = 27 and 27 / digsum(27) = 27/9 = 3 = prime(2), so a(2) = 27.
A001101(5) = 45 and 45 / digsum(45) = 45/9 = 5 = prime(3), so a(3) = 45.
A130338(1) = 173 = prime(40), so a(40) = 0.
PROG
(Magma) f:=func<n, m| m mod &+Intseq(m) eq 0 and (m div &+Intseq(m) eq NthPrime(n))>; a:=[]; for n in [1..50] do m:=NthPrime(n); while m le 9*NthPrime(n)*(Log(10, m)+1) and not f(n, m) do m:=m+NthPrime(n); end while; if (m div &+Intseq(m) eq NthPrime(n)) then Append(~a, m); else Append(~a, 0); end if; end for; a;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Sep 18 2020
STATUS
approved