OFFSET
1,2
COMMENTS
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
Robert Simms, Deriving Pythagorean Triples (web archive)
MATHEMATICA
lst={}; Do[If[PrimeQ[(n+1)^2-n^2]&&PrimeQ[(n+1)^2+n^2], AppendTo[lst, n]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 01 2010 *)
Reap[Do[a=Prime[k]; If[PrimeQ[(a^2+1)/2], Sow[(a-1)/2]], {k, 2, 10^5}]][[2, 1]](* Zak Seidov, Apr 16 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Mar 25 2002
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Jun 19 2002
STATUS
approved