OFFSET
1,1
FORMULA
a(n) = A005383(n)-1. - Robert Israel, Dec 13 2018
MATHEMATICA
Select[Range[5*10^3], PrimeQ[ # + 1] && PrimeQ[ #/2 + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jan 18 2004
STATUS
approved