|
|
A156316
|
|
Perfect squares with property that their digit reversal is a larger perfect square.
|
|
1
|
|
|
144, 169, 1089, 10404, 10609, 12544, 12769, 14884, 1004004, 1006009, 1022121, 1024144, 1026169, 1042441, 1044484, 1062961, 1214404, 1216609, 1236544, 1238769, 1256641, 1258884, 1444804, 1468944, 4048144, 4088484, 10036224
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|