A045788 - OEIS

%I #16 Oct 01 2016 05:32:18

%S 529,576,5041,5184,5329,5476,5625,5776,5929,50176,50625,51076,51529,

%T 51984,52441,52900,53361,53824,54289,54756,55225,55696,56169,56644,

%U 57121,57600,58081,58564,59049,59536,501264,502681,504100,505521

%N Squares with initial digit '5'.

%H Robert Israel, <a href="/A045788/b045788.txt">Table of n, a(n) for n = 1..10000</a>

%p 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

%t Flatten[Table[Range[Ceiling[Sqrt[5 10^n]],Floor[Sqrt[6 10^n]]]^2,{n,5}]]  (* _Harvey P. Dale_, Jun 15 2011 *)

%Y Cf. A045784, A045785, A045786, A045787, A045789, A045791, A045792, A045793.

%K nonn,base

%O 1,1

%A _Jeff Burch_

%E Offset changed by _Robert Israel_, Sep 30 2016