OFFSET
1,1
COMMENTS
For prime terms in this sequence, see A081220. - Lekraj Beedassy, Jun 30 2008
MATHEMATICA
Take[Select[Sqrt[#[[1]]^2+#[[2]]^2]&/@(Union[Sort/@({Times@@#, (Last[#]^2- First[#]^2)/2}&/@(Select[Subsets[Range[1, 311, 2], {2}], GCD@@#== 1&]))]), PalindromeQ]//Union, 50] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 06 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Oct 23 2003
EXTENSIONS
More terms from Ray Chandler, Oct 25 2003
STATUS
approved