OFFSET
0,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..1000
FORMULA
a(n) + A077116(n) = n^3.
a(n) = A048760(n^3).
n^3 - 2*n^(3/2) <= a(n) <= n^3. - Charles R Greathouse IV, Dec 05 2022
a(n) = A000093(n)^2. - Amiram Eldar, Jul 14 2024
EXAMPLE
a(10) = 961, as 961 = 31^2 is the largest square <= 1000 = 10^3.
MATHEMATICA
Table[Floor[Sqrt[w^3]//N]^2, {w, 1, 50}]
PROG
(PARI) for (n=0, 1000, a=sqrtint(n^3)^2; write("b065733.txt", n, " ", a)) \\ Harry J. Smith, Oct 28 2009
(PARI) A065733(n)=sqrtint(n^3)^2 \\ M. F. Hasler, Oct 05 2013
(Haskell) a065733 n = head [x | x <- reverse [0.. n^3], a010052 x == 1] -- Reinhard Zumkeller, Oct 10 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Nov 15 2001
STATUS
approved