OFFSET
0,4
COMMENTS
For a guide to related sequences, see A211422.
MATHEMATICA
t = Compile[{{u, _Integer}},
Module[{s = 0}, (Do[If[w^2 > 2 x^2 + 2 y^2,
s = s + 1], {w, #}, {x, #}, {y, #}] &[
Flatten[{Reverse[-#], #} &[Range[1, u]]]]; s)]];
Map[t[#] &, Range[0, 50]] (* A211633 *)
%/8 (* integers *)
(* Peter J. C. Moses, Apr 13 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 17 2012
STATUS
approved