OFFSET
1,1
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
a(n)=2*A145480(n)-37
MATHEMATICA
aa = {}; k = 37; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa
PROG
(PARI) list(lim)=my(v=List()); forprime(p=2, lim, if(isprime(2*p-37), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Jan 23 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Artur Jasinski, Oct 11 2008
STATUS
approved