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,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..50

Example

196 becomes 961 which is also a square.

Mathematica

Select[Range[20000]^2, IntegerQ[Sqrt[FromDigits[RotateLeft[ IntegerDigits[ #]]]]]&] (* Harvey P. Dale, Jan 23 2014 *)

Crossrefs

Cf. A061460.

Sequence in context: A182020 A087553 A061850 * A061869 A061270 A070254

Adjacent sequences: A061456 A061457 A061458 * A061460 A061461 A061462

Keyword

nonn,base

Author

Amarnath Murthy, May 04 2001

Extensions

More terms from Erich Friedman, May 08 2001

Status

approved