OFFSET
1,2
MATHEMATICA
Select[Range[0, 10^3], PrimeQ[(2^# + 1)/(2 - (-1)^#)] &] (* Michael De Vlieger, Dec 25 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Dec 25 2016
STATUS
approved