A045787 Squares with initial digit '4'.
4, 49, 400, 441, 484, 4096, 4225, 4356, 4489, 4624, 4761, 4900, 40000, 40401, 40804, 41209, 41616, 42025, 42436, 42849, 43264, 43681, 44100, 44521, 44944, 45369, 45796, 46225, 46656, 47089, 47524, 47961, 48400, 48841, 49284, 49729, 400689
Offset: 1
Programs
-
Mathematica
Flatten[Table[Range[Ceiling[Sqrt[4 10^n]],Floor[Sqrt[5 10^n]]]^2, {n,5}]] (* Harvey P. Dale, Jun 15 2011 *)
Formula
a(n) = A045858(n)^2. - Michel Marcus, Sep 04 2021