%I
%S 1,4,9,256,441,961,16641,48841,61009,66564,1127844,2537649,3857296,
%T 4932841,182682256,298840369,342842256,392872041,493772841,787588096,
%U 877996161,10766967696,33255899044,49382172841,74825772849
%N Squares when digits rotated right once remain square.
%C Those resulting in leading zeros excluded.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SquareNumber.html">Square Number</a>
%F a(n) = A045877(n)^2.  _R. J. Mathar_, Jan 25 2017
%e 2221^2 = 4932841 > 1493284 = 1222^2. Note that the root behaves accordingly!
%t Select[Range[300000]^2,IntegerQ[Sqrt[FromDigits[RotateRight[ IntegerDigits[ #]]]]]&] (* _Harvey P. Dale_, Mar 22 2015 *)
%o (MAGMA) [k:k in [m^2:m in [1..10^6]] IsSquare(Seqint( (Intseq(Floor(k/10)) cat [ Intseq(k)[1]])))]; // _Marius A. Burtea_, Oct 08 2019
%Y Cf. A045877, A035130.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, Nov 15 1998
