A211645 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2+x^2+y^2>=2n.

0, 1, 7, 26, 60, 118, 206, 332, 495, 709, 974, 1299, 1693, 2159, 2696, 3321, 4036, 4847, 5757, 6781, 7913, 9165, 10543, 12053, 13704, 15498, 17437, 19538, 21795, 24220, 26822, 29607, 32572, 35735, 39087, 42643, 46418, 50409, 54609, 59041

Offset: 0

Author

Clark Kimberling, Apr 18 2012

Keywords

• nonn

Comments

For a guide to related sequences, see A211422.

Crossrefs

Cf. A211422.

Programs

Mathematica

t = Compile[{{n, _Integer}}, Module[{s = 0},
    (Do[If[w^2 + x^2 + y^2 >= 2 n, s = s + 1],
        {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 80]]     (* A211645 *)
(* Peter J. C. Moses, Apr 13 2012 *)