login
A066645
a(n) = floor( (4/3)*Pi*n^3 ).
7
0, 4, 33, 113, 268, 523, 904, 1436, 2144, 3053, 4188, 5575, 7238, 9202, 11494, 14137, 17157, 20579, 24429, 28730, 33510, 38792, 44602, 50965, 57905, 65449, 73622, 82447, 91952, 102160, 113097, 124788, 137258, 150532, 164636, 179594, 195432
OFFSET
0,2
COMMENTS
a(n) = A164086(A000578(n)). [Reinhard Zumkeller, Aug 11 2009]
Volume of a sphere of radius n, rounded down.
LINKS
FORMULA
a(n) = floor((4/3)*Pi*n^3).
a(n) = A135973(n) - 1 for n > 0.
MATHEMATICA
Table[ Floor[(4/3)Pi*n^3], {n, 0, 50} ]
PROG
(PARI) { for (n=0, 1000, write("b066645.txt", n, " ", floor((4/3)*Pi*n^3)) ) } \\ Harry J. Smith, Mar 16 2010
(Maxima) A066645(n):=floor((4/3)*%pi*n^3)$
makelist(A066645(n), n, 1, 30); /* Martin Ettl, Nov 03 2012 */
(Sage)
n=100 # change n for more values
[floor(4/3*pi*r^3) for r in [0..n]] # Tom Edgar, Oct 10 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Dec 29 2001
EXTENSIONS
More terms from Robert G. Wilson v, Jan 03 2002
0 prepended by T. D. Noe, Oct 10 2013
STATUS
approved