OFFSET
1,1
COMMENTS
Corresponding values of 2*prime(n) - prime(n+1) are in A215808.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=(2Prime[n]-Prime[n+1]); Select[Range[1000], PrimeQ[f[#]]&]
Position[Partition[Prime[Range[500]], 2, 1], _?(PrimeQ[2#[[1]]-#[[2]]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, Apr 06 2018 *)
PROG
(PARI) list(lim)=my(v=List(), n, p=2); forprime(q=3, , if(n++>lim, return(Vec(v))); if(isprime(2*p-q), listput(v, n)); p=q) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 06 2012
STATUS
approved