|
|
A101116
|
|
Values in A101115 which are records.
|
|
4
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
All primes up to 1000003 have been tested.
|
|
LINKS
|
|
|
PROG
|
(Python)
from sympy import isprime, nextprime
n, pn, record = 0, 1, -1
while True:
n += 1
pn = nextprime(pn)
s, c, found = str(pn), 0, True
while found:
found = False
for d in "123456789":
if isprime(int(d+s)):
s, c, found = d+s, c+1, True
break
if c > record:
record = c
yield record, pn, int(s)
g = agen()
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Chuck Seggelin (seqfan(AT)plastereddragon.com), Dec 02 2004
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|