|
%I #25 Apr 02 2015 06:27:26
%S 0,4,33,113,268,523,904,1436,2144,3053,4188,5575,7238,9202,11494,
%T 14137,17157,20579,24429,28730,33510,38792,44602,50965,57905,65449,
%U 73622,82447,91952,102160,113097,124788,137258,150532,164636,179594,195432
%N a(n) = floor( (4/3)*Pi*n^3 ).
%C a(n) = A164086(A000578(n)). [_Reinhard Zumkeller_, Aug 11 2009]
%C Volume of a sphere of radius n, rounded down.
%H Harry J. Smith, <a href="/A066645/b066645.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = floor((4/3)*Pi*n^3).
%F a(n) = A135973(n) - 1 for n > 0.
%t Table[ Floor[(4/3)Pi*n^3], {n, 0, 50} ]
%o (PARI) { for (n=0, 1000, write("b066645.txt", n, " ", floor((4/3)*Pi*n^3)) ) } \\ _Harry J. Smith_, Mar 16 2010
%o (Maxima) A066645(n):=floor((4/3)*%pi*n^3)$
%o makelist(A066645(n),n,1,30); /* _Martin Ettl_, Nov 03 2012 */
%o (Sage)
%o n=100 # change n for more values
%o [floor(4/3*pi*r^3) for r in [0..n]] # _Tom Edgar_, Oct 10 2013
%Y Cf. A000578, A135973, A164086.
%K easy,nonn
%O 0,2
%A _Amarnath Murthy_, Dec 29 2001
%E More terms from _Robert G. Wilson v_, Jan 03 2002
%E 0 prepended by _T. D. Noe_, Oct 10 2013
|
