|
%I #17 Sep 08 2022 08:45:07
%S 0,1,9,36,64,144,225,361,529,729,1024,1369,1764,2209,2809,3481,4096,
%T 5041,5929,6889,8100,9409,10816,12321,13924,15625,17689,19881,22201,
%U 24649,27225,29929,33124,36100,39601,43264,46656,51076,55225,59536
%N Least integer square >= n^3.
%C a(n) - A070929(n) = n^3.
%F a(n) = ceiling(n^(3/2))^2. - _Benoit Cloitre_, Nov 01 2002
%e a(10)=1024, as 1024=32^2 is the least square >= 1000 = 10^3.
%t lis[n_]:=Module[{c=Sqrt[n^3]},If[IntegerQ[c],c^2,(Floor[c]+1)^2]]; Array[lis,40,0] (* _Harvey P. Dale_, Jan 22 2013 *)
%o (Magma) [Ceiling(n^(3/2))^2: n in [0..50]]; // _Vincenzo Librandi_, Feb 17 2015
%Y Cf. A000290, A000578, A065733, A077107, A077118.
%K nonn
%O 0,3
%A _Reinhard Zumkeller_, Oct 29 2002
|
