A045788 Squares with initial digit '5'.
529, 576, 5041, 5184, 5329, 5476, 5625, 5776, 5929, 50176, 50625, 51076, 51529, 51984, 52441, 52900, 53361, 53824, 54289, 54756, 55225, 55696, 56169, 56644, 57121, 57600, 58081, 58564, 59049, 59536, 501264, 502681, 504100, 505521
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
seq(op(map(`^`, [seq(i,i=ceil(sqrt(5*10^d))..floor(sqrt(6*10^d-1)))],2)),d=1..5); # Robert Israel, Sep 30 2016
-
Mathematica
Flatten[Table[Range[Ceiling[Sqrt[5 10^n]],Floor[Sqrt[6 10^n]]]^2,{n,5}]] (* Harvey P. Dale, Jun 15 2011 *)
Formula
a(n) = A045859(n)^2. - R. J. Mathar, Jul 23 2025
Extensions
Offset changed by Robert Israel, Sep 30 2016