login
Squares which produce squares when the leading digit is moved to the end.
3

%I #9 Aug 05 2020 19:30:56

%S 1,4,9,100,144,196,400,625,900,10000,11664,14884,40000,46656,60025,

%T 90000,96100,1000000,1028196,1493284,4000000,4112784,6385729,9000000,

%U 9253764,100000000,100400400,139287204,149377284,187799616,400000000

%N Squares which produce squares when the leading digit is moved to the end.

%H Harvey P. Dale, <a href="/A061459/b061459.txt">Table of n, a(n) for n = 1..50</a>

%e 196 becomes 961 which is also a square.

%t Select[Range[20000]^2,IntegerQ[Sqrt[FromDigits[RotateLeft[ IntegerDigits[ #]]]]]&] (* _Harvey P. Dale_, Jan 23 2014 *)

%Y Cf. A061460.

%K nonn,base

%O 1,2

%A _Amarnath Murthy_, May 04 2001

%E More terms from _Erich Friedman_, May 08 2001