OFFSET
0,1
LINKS
Iain Fox, Table of n, a(n) for n = 0..20000
MATHEMATICA
Table[j=0; found=False; While[!found, j++; found=PrimeQ[2Prime[j]+2n-1]]; Prime[j], {n, 85}]
PROG
(PARI) a(n) = {my(p=2); while(!isprime(2*p+2*n-1), p = nextprime(p+1)); p; } \\ Michel Marcus, Aug 12 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
XU Pingya, Aug 12 2017
EXTENSIONS
a(0) prepended by Iain Fox, Dec 14 2017
STATUS
approved