OFFSET
1,1
COMMENTS
Associated with A019518(i) at i = 108, 2660, 338775, 4933945,...
PROG
(Python)
from sympy import nextprime
def A185704(n):
p, k, m = 2, 73**n, 10
q, m2 = p % k, m % k
while True:
p = nextprime(p)
while p >= m:
m *= 10
m2 = m % k
q = (q*m2 + p) % k
if q == 0:
return p # Chai Wah Wu, May 01 2020
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
James G. Merickel, Feb 05 2011
EXTENSIONS
a(5) from Chai Wah Wu, May 01 2020
STATUS
approved