OFFSET
1,1
COMMENTS
A007355 appears to be an erroneous version of this sequence.
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
Robert G. Wilson v, Letter to N. J. A. Sloane, Aug. 1993
PROG
(PARI) a297408(limit)={my(v=vector(10), vm=0, ivm=0, imv); forprime(p=2, limit, my(m=p%10); v[m]++; my(mv=vecmax(v, &imv)); if(mv>vm, if(imv!=ivm, print1(p, ", "); ivm=imv); vm=mv))};
a297408(12500) \\ Hugo Pfoertner, Jul 25 2021
(Python)
from sympy import nextprime
from itertools import islice
def agen():
c, p, leader = [0 for i in range(10)], 1, None
while True:
p = nextprime(p); last = p%10; c[last] += 1; m = max(c)
if c.count(m) == 1 and c.index(m) == last and last != leader:
yield p; leader = last
print(list(islice(agen(), 44))) # Michael S. Branicky, Dec 20 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Sean A. Irvine, Dec 29 2017
STATUS
approved