login
A077112
a(n)=n^2 times nearest cube to n^2.
1
0, 1, 4, 72, 128, 675, 972, 3136, 4096, 5184, 12500, 15125, 18000, 21125, 42336, 48600, 55296, 99127, 111132, 123823, 137200, 225792, 247808, 270848, 294912, 455625, 492804, 531441, 571536, 613089, 900000, 961000, 1024000, 1089000
OFFSET
0,3
LINKS
FORMULA
a(n) = A000290(n)*A077110(n).
MATHEMATICA
ntnc[n_]:=Module[{n2=n^2, a, b, a3, b3}, a=Floor[Power[n2, (3)^-1]]; b=a+1; a3=a^3; b3=b^3; If[n2-a3<b3-n2, n2 a3, n2 b3]]; Array[ntnc, 40, 0] (* Harvey P. Dale, Jan 06 2012 *)
nic[n_]:=Module[{n2=n^2, c}, c=Floor[Surd[n2, 3]]; n2*Nearest[{c^3, (c+1)^3}, n2]]; Join[{0, 1}, Array[nic, 40, 2]]//Flatten//Union (* Harvey P. Dale, May 13 2020 *)
CROSSREFS
Sequence in context: A336253 A227248 A113839 * A203537 A095385 A375251
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Oct 29 2002
STATUS
approved