OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
13 is a term because 12 + 5 = 17 and 12 - 5 = 7.
17 is a term because 15 + 8 = 23 and 15 - 8 = 7.
25 is a term because 24 + 7 = 31 and 24 - 7 = 17.
MATHEMATICA
Sqrt[#[[1]]^2+#[[2]]^2]&/@Select[Union[Sort/@({Times@@#, (Last[#]^2-First[ #]^2)/2}&/@(Select[Subsets[Range[1, 51, 2], {2}], GCD@@#==1&]))], AllTrue[ {Total[#], #[[2]]-#[[1]]}, PrimeQ]&]//Union (* Harvey P. Dale, Sep 25 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Torlach Rush, May 02 2019
STATUS
approved