OFFSET
1,1
MATHEMATICA
Select[Range[10000], PrimeQ[#]&&PrimeQ[2*(#^5)-1] &] (* Metin Sariyar, Aug 21 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Aug 20 2019
STATUS
approved