OFFSET
1,1
COMMENTS
2*5-7=3, 2*7-11=3, 2*23-29=17,..
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= select(isprime, [2, seq(i, i=1..10000, 2)]):
Q:= 2*P[1..-2]-P[2..-1]:
P[select(t -> isprime(Q[t]), [$1..nops(Q)])]; # Robert Israel, Jul 03 2019
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[400]], PrimeQ[2#-NextPrime[#]]&] (* Harvey P. Dale, May 04 2021 *)
PROG
(Magma) [p:p in PrimesUpTo(2500)| IsPrime(2*p-NextPrime(p))]; // Marius A. Burtea, Jul 03 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 03 2010
STATUS
approved