A061459 Squares which produce squares when the leading digit is moved to the end.
1, 4, 9, 100, 144, 196, 400, 625, 900, 10000, 11664, 14884, 40000, 46656, 60025, 90000, 96100, 1000000, 1028196, 1493284, 4000000, 4112784, 6385729, 9000000, 9253764, 100000000, 100400400, 139287204, 149377284, 187799616, 400000000
Offset: 1
Examples
196 becomes 961 which is also a square.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..50
Crossrefs
Cf. A061460.
Programs
-
Mathematica
Select[Range[20000]^2,IntegerQ[Sqrt[FromDigits[RotateLeft[ IntegerDigits[ #]]]]]&] (* Harvey P. Dale, Jan 23 2014 *)
Extensions
More terms from Erich Friedman, May 08 2001