%I #16 Sep 04 2021 19:17:31
%S 1,16,100,121,144,169,196,1024,1089,1156,1225,1296,1369,1444,1521,
%T 1600,1681,1764,1849,1936,10000,10201,10404,10609,10816,11025,11236,
%U 11449,11664,11881,12100,12321,12544,12769,12996,13225,13456,13689,13924
%N Squares with initial digit '1'.
%H N. J. A. Sloane, <a href="/A045784/b045784.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = A045855(n)^2. - _Michel Marcus_, Sep 04 2021
%t Select[Range[120]^2,First[IntegerDigits[#]]==1&] (* _Harvey P. Dale_, Dec 31 2011 *)
%Y Cf. A045855.
%Y Cf. A045785, A045786, A045787, A045788, A045789, A045791, A045792, A045793.
%K nonn,base
%O 1,2
%A _Jeff Burch_