|
%I #22 May 19 2019 13:49:07
%S 100,144,169,400,441,900,961,1089,9801,10000,10404,10609,12100,12544,
%T 12769,14400,14884,16900,40000,40401,44100,44521,48400,48841,67600,
%U 90000,90601,96100,96721,108900,980100,1000000,1004004,1006009,1020100,1022121,1024144,1026169,1040400,1042441
%N Non-palindromic squares whose digit reversal gives a square (possibly with fewer digits).
%H Vincenzo Librandi, <a href="/A161902/b161902.txt">Table of n, a(n) for n = 1..1130</a>
%t 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 *)
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Jan 30 2011
%E More terms from _Harvey P. Dale_, Feb 02 2011
|
