|
%I #13 May 22 2022 00:00:55
%S 144,169,1089,10404,10609,12544,12769,14884,1004004,1006009,1022121,
%T 1024144,1026169,1042441,1044484,1062961,1214404,1216609,1236544,
%U 1238769,1256641,1258884,1444804,1468944,4048144,4088484,10036224
%N Perfect squares with property that their digit reversal is a larger perfect square.
%C Subsequence of A061457. - _R. J. Mathar_, Feb 08 2009
%H Harvey P. Dale, <a href="/A156316/b156316.txt">Table of n, a(n) for n = 1..399</a>
%H <a href="/index/Sq#sqrev">Index entry for sequences related to reversing digits of squares</a>
%e a(1)=144 because the digit reverse of 144 is 441, which is the square of 21.
%p 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
%t drlpsQ[n_]:=Module[{rev=FromDigits[Reverse[IntegerDigits[n]]]},rev>n && IntegerQ[ Sqrt[rev]]]; Select[Range[3200]^2,drlpsQ] (* _Harvey P. Dale_, Jan 15 2015 *)
%K nonn,base
%O 1,1
%A _Gaurav Kumar_, Feb 07 2009
%E More terms from _R. J. Mathar_ and _Gaurav Kumar_, Feb 08 2009
|
