OFFSET
0,2
COMMENTS
MATHEMATICA
a[n_] := Sum[SquaresR[3, k], {k, 0, n}] - Round[(4/3)*Pi*n^(3/2)]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Feb 04 2016 *)
CROSSREFS
KEYWORD
sign
AUTHOR
M. F. Hasler, Mar 26 2012
STATUS
approved