OFFSET
1,1
COMMENTS
Subsequence of A061457. - R. J. Mathar, Feb 08 2009
LINKS
EXAMPLE
a(1)=144 because the digit reverse of 144 is 441, which is the square of 21.
MAPLE
read("transforms") ; for n from 1 to 20000 do n2 := n^2 ; n2r := digrev(n2) ; if issqr(n2r) and n2r > n2 then printf("%d, ", n2) ; fi; od: # R. J. Mathar, Feb 08 2009
MATHEMATICA
drlpsQ[n_]:=Module[{rev=FromDigits[Reverse[IntegerDigits[n]]]}, rev>n && IntegerQ[ Sqrt[rev]]]; Select[Range[3200]^2, drlpsQ] (* Harvey P. Dale, Jan 15 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gaurav Kumar, Feb 07 2009
EXTENSIONS
More terms from R. J. Mathar and Gaurav Kumar, Feb 08 2009
STATUS
approved