OFFSET
1,1
COMMENTS
All terms of the sequence must be part of a Pythagorean triple of the form (2u-1), 2u*(u-1), (2u^2 - 2u + 1). - Joshua Zucker, May 12 2006
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
tppQ[{a_, b_, c_}]:=AllTrue[{a, c}, PrimeQ]&&AnyTrue[a+{2, -2}, PrimeQ] && AnyTrue[ c+{2, -2}, PrimeQ]; Select[Table[{2n-1, 2n(n-1), 2n^2-2n+1}, {n, 2, 10000}], tppQ][[All, 3]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 27 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Stuart M. Ellerstein (ellerstein(AT)aol.com), Dec 14 1999
EXTENSIONS
More terms from Joshua Zucker, May 12 2006
STATUS
approved