OFFSET
1,1
EXAMPLE
47, 53 and 59 are primes. There are no other primes between 47 and 59 and 59-53=53-47=6. There are no other such primes with a smaller distance so 53 is included in the sequence.
MAPLE
Primes:= select(isprime, [2, seq(2*i+1, i=1..10^7)]):
g:= 0: count:= 0:
for i from 2 to nops(Primes)-1 do
if Primes[i+1]+Primes[i-1] = 2*Primes[i] and Primes[i+1]-Primes[i] > g then
count:= count+1;
a[count]:= Primes[i];
g:= Primes[i+1]-Primes[i];
fi
od:
seq(a[i], i=1..count); # Robert Israel, Sep 20 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey Dubner (harvey(AT)dubner.com), Dec 07 2000; extended Sep 11 2004
EXTENSIONS
a(21)-a(30) from Dmitry Petukhov, Sep 22 2015
STATUS
approved