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,2

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

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

Cf. A000578, A135973, A164086.

Sequence in context: A092207 A133630 A279866 * A295939 A297515 A027169

Adjacent sequences: A066642 A066643 A066644 * A066646 A066647 A066648

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