OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[r=2*p^2-1], AppendTo[lst, r]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 20 2009 *)
Select[2#^2-1&/@Prime[Range[200]], PrimeQ] (* Harvey P. Dale, Jun 26 2017 *)
PROG
(PARI) for (i=1, 300, if(isprime(2*prime(i)^2-1), print1(2*prime(i)^2-1, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mohammed Bouayoun (mohammed.bouayoun(AT)sanef.com), Feb 19 2004
STATUS
approved