|
%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
|
