A066645 a(n) = floor( (4/3)*Pi*n^3 ).

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

Author

Amarnath Murthy, Dec 29 2001

Keywords

• easy
• nonn

Comments

a(n) = A164086(A000578(n)). [Reinhard Zumkeller, Aug 11 2009]

Volume of a sphere of radius n, rounded down.

Links

• Harry J. Smith, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000578, A135973, A164086.

Programs

Mathematica

Table[ Floor[(4/3)Pi*n^3], {n, 0, 50} ]

Maxima

A066645(n):=floor((4/3)*%pi*n^3)$
makelist(A066645(n),n,1,30); /* Martin Ettl, Nov 03 2012 */

PARI

{ for (n=0, 1000, write("b066645.txt", n, " ", floor((4/3)*Pi*n^3)) ) } \\ Harry J. Smith, Mar 16 2010

Sage

n=100 # change n for more values
[floor(4/3*pi*r^3) for r in [0..n]] # Tom Edgar, Oct 10 2013

Formula

a(n) = floor((4/3)*Pi*n^3).

a(n) = A135973(n) - 1 for n > 0.

Extensions

More terms from Robert G. Wilson v, Jan 03 2002

0 prepended by T. D. Noe, Oct 10 2013