|
|
A065733
|
|
Largest square <= n^3.
|
|
16
|
|
|
0, 1, 4, 25, 64, 121, 196, 324, 484, 729, 961, 1296, 1681, 2116, 2704, 3364, 4096, 4900, 5776, 6724, 7921, 9216, 10609, 12100, 13689, 15625, 17424, 19600, 21904, 24336, 26896, 29584, 32761, 35721, 39204, 42849, 46656, 50625, 54756, 59049, 63504
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
(Haskell) a065733 n = head [x | x <- reverse [0.. n^3], a010052 x == 1] -- Reinhard Zumkeller, Oct 10 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|