OFFSET
1,1
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 2*A145476(n) - 19.
MATHEMATICA
aa = {}; k = 19; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa
(* Second program: *)
Select[Prime@ Range@ 300, And[PrimeQ@ #, # > 0] &[2 # - 19] &] (* Michael De Vlieger, Jan 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 11 2008
STATUS
approved