cp's OEIS Frontend

A185704 Final prime adjoined in the smallest term of A019518 divisible by 73^n.

%I A185704 #10 May 01 2020 17:31:19
%S A185704 593,23909,4851169,84821071,13231167673
%N A185704 Final prime adjoined in the smallest term of A019518 divisible by 73^n.
%C A185704 Associated with A019518(i) at i = 108, 2660, 338775, 4933945,...
%o A185704 (Python)
%o A185704 from sympy import nextprime
%o A185704 def A185704(n):
%o A185704     p, k, m = 2, 73**n, 10
%o A185704     q, m2 = p % k, m % k
%o A185704     while True:
%o A185704         p = nextprime(p)
%o A185704         while p >= m:
%o A185704             m *= 10
%o A185704             m2 = m % k
%o A185704         q = (q*m2 + p) % k
%o A185704         if q == 0:
%o A185704             return p # _Chai Wah Wu_, May 01 2020
%Y A185704 Cf. A185656, A185659, A185662, A185665, A185671, A185677, A185680.
%K A185704 nonn,base,more
%O A185704 1,1
%A A185704 _James G. Merickel_, Feb 05 2011
%E A185704 a(5) from _Chai Wah Wu_, May 01 2020