OFFSET
1,1
COMMENTS
5+(7^2-5^2)=5+24=29,...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p2+(p2^2-p1^2)], AppendTo[lst, p1]], {n, 4*6!}]; lst
Select[Partition[Prime[Range[700]], 2, 1], #[[2]]-#[[1]]==2&& PrimeQ[ #[[2]]+ #[[2]]^2-#[[1]]^2]&][[All, 1]] (* Harvey P. Dale, Dec 18 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 02 2010
STATUS
approved