OFFSET
1,1
COMMENTS
LINKS
Harry J. Smith, Table of n, a(n) for n=1,...,1000
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[a=(p-1)/2]&&PrimeQ[(a-1)/2], AppendTo[lst, p]], {n, 8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 27 2009 *)
PROG
(PARI) { n=0; default(primelimit, 4294965247); for (m=1, 10^9, p=prime(m); if (frac((p-3)/4), next); if (isprime((p-3)/4) && isprime((p-1)/2), write("b066179.txt", n++, " ", p); if (n==1000, return)) ) } \\ Harry J. Smith, Feb 05 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Dec 14 2001
EXTENSIONS
Offset changed from 0 to 1 by Harry J. Smith, Feb 05 2010
STATUS
approved