%I
%S 1,2500,3600,62500,14379264,57760000,141376000000,245495475625,
%T 390625000000,943971582724,4482669527413081,8790937600000000,
%U 31561776563446336,10235319926865509025
%N Numbers n such that n has sqrt(n) as its middle digits.
%t Do[ If[ StringPosition[ ToString[n^2], ToString[n]] [[1, 1]] == (Ceiling[ Log[10, n^2] ]  Ceiling[ Log[10, n] ])/2 + 1, Print[n^2] ], {n, 1, 10^9} ]
%Y A062120 = A062118^2.
%K nonn,base
%O 1,2
%A Brian Wallace (wallacebrianedward(AT)yahoo.co.uk), Jun 28 2001
