|
%I #18 Mar 07 2022 15:47:28
%S 0,1,1,8,8,27,27,64,64,64,125,125,125,125,216,216,216,343,343,343,343,
%T 512,512,512,512,729,729,729,729,729,1000,1000,1000,1000,1000,1331,
%U 1331,1331,1331,1331,1728,1728,1728,1728,1728,2197,2197,2197
%N Nearest integer cube to n^2.
%F a(n) = if A075847(n) < A070923(n) then A077106(n) else A077107(n).
%e a(10)=125, as 125=5^3 is the nearest cube to 100=10^2.
%t nic[n_]:=Module[{n2=n^2,s3,c1,c2},s3=Surd[n2,3];c1=Floor[s3]^3;c2= Ceiling[ s3]^3;If[n2-c1<c2-n2,c1,c2]]; Array[nic,50,0] (* _Harvey P. Dale_, Jul 05 2015 *)
%o (Python)
%o from sympy import integer_nthroot
%o def A077110(n):
%o n2 = n**2
%o a = integer_nthroot(n2,3)[0]
%o a2, a3 = a**3, (a+1)**3
%o return a3 if a3+a2-2*n2 < 0 else a2 # _Chai Wah Wu_, Sep 24 2021
%Y Cf. A000578, A000290, A077111, A077118.
%Y Cf. A002760 (Squares and cubes). - _Zak Seidov_, Oct 08 2015
%K nonn
%O 0,4
%A _Reinhard Zumkeller_, Oct 29 2002
|
