OFFSET
1,1
MATHEMATICA
Select[Prime[Range[10000]], PrimeQ[2#^2 - 1] && PrimeQ[4#^3 - 2# - 1] &] (* Alonso del Arte, Apr 22 2013 *)
PROG
(PARI) forprime(p=1, 3e4, isprime(r=2*p^2-1)&&isprime(2*p*r-1)&&print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Apr 22 2013
STATUS
approved