cp's OEIS Frontend

A101116 Values in A101115 which are records.

%I A101116 #9 Jul 26 2024 12:33:25
%S A101116 0,5,9,14,15,18,19,20,22
%N A101116 Values in A101115 which are records.
%C A101116 All primes up to 1000003 have been tested.
%o A101116 (Python)
%o A101116 from sympy import isprime, nextprime
%o A101116 def agen(): # generator of tuple of terms of (A101116, A101117, A101118)
%o A101116     n, pn, record = 0, 1, -1
%o A101116     while True:
%o A101116         n += 1
%o A101116         pn = nextprime(pn)
%o A101116         s, c, found = str(pn), 0, True
%o A101116         while found:
%o A101116             found = False
%o A101116             for d in "123456789":
%o A101116                 if isprime(int(d+s)):
%o A101116                     s, c, found = d+s, c+1, True
%o A101116                     break
%o A101116         if c > record:
%o A101116             record = c
%o A101116             yield record, pn, int(s)
%o A101116 g = agen()
%o A101116 print([next(g)[0] for n in range(1, 7)]) # _Michael S. Branicky_, Jun 24 2022
%Y A101116 Cf. A053583, A024785, A000040, A101115, A101117, A101118.
%K A101116 base,more,nonn
%O A101116 1,2
%A A101116 Chuck Seggelin (seqfan(AT)plastereddragon.com), Dec 02 2004
%E A101116 a(7)-a(8) from _Michael S. Branicky_, Jun 24 2022
%E A101116 a(9) from _Michael S. Branicky_, Jul 26 2024