A161902 Non-palindromic squares whose digit reversal gives a square (possibly with fewer digits).
100, 144, 169, 400, 441, 900, 961, 1089, 9801, 10000, 10404, 10609, 12100, 12544, 12769, 14400, 14884, 16900, 40000, 40401, 44100, 44521, 48400, 48841, 67600, 90000, 90601, 96100, 96721, 108900, 980100, 1000000, 1004004, 1006009, 1020100, 1022121, 1024144, 1026169, 1040400, 1042441
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1130
Programs
-
Mathematica
rsQ[n_]:=Module[{idn=IntegerDigits[n],ridn}, ridn=Reverse[idn]; ridn!=idn&&IntegerQ[Sqrt[FromDigits[ridn]]]]; Select[Range[2000]^2,rsQ] (* Harvey P. Dale, Feb 02 2011 *)
Extensions
More terms from Harvey P. Dale, Feb 02 2011