OFFSET
1,1
COMMENTS
Every term must be a multiple of 3.
EXAMPLE
998586 is a term since rev(998586^2) + 685899^2 = 1079100^2.
MATHEMATICA
rev[n_] := FromDigits@ Reverse@ IntegerDigits@ n; Parallelize@ Select[3 Range[4 10^6], IntegerQ@ Sqrt[rev[#^2] + rev[#]^2] &]
PROG
(PARI) isok(n) = issquare(fromdigits(Vecrev(digits(n)))^2 + fromdigits(Vecrev(digits(n^2)))); \\ Michel Marcus, Jun 29 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jun 26 2017
STATUS
approved