%I #14 Sep 04 2021 15:29:42
%S 4,49,400,441,484,4096,4225,4356,4489,4624,4761,4900,40000,40401,
%T 40804,41209,41616,42025,42436,42849,43264,43681,44100,44521,44944,
%U 45369,45796,46225,46656,47089,47524,47961,48400,48841,49284,49729,400689
%N Squares with initial digit '4'.
%F a(n) = A045858(n)^2. - _Michel Marcus_, Sep 04 2021
%t Flatten[Table[Range[Ceiling[Sqrt[4 10^n]],Floor[Sqrt[5 10^n]]]^2, {n,5}]] (* _Harvey P. Dale_, Jun 15 2011 *)
%Y Cf. A045858.
%Y Cf. A045784, A045785, A045786, A045788, A045789, A045791, A045792, A045793.
%K nonn,base
%O 1,1
%A _Jeff Burch_