A211430 Number of ordered triples (w,x,y) with all terms in {-n,...,0,...,n} and w^2+x+y=0.

1, 7, 15, 25, 35, 49, 63, 77, 93, 111, 129, 147, 165, 187, 209, 231, 253, 275, 299, 325, 351, 377, 403, 429, 455, 485, 515, 545, 575, 605, 635, 665, 697, 731, 765, 799, 833, 867, 901, 935, 969, 1007, 1045, 1083, 1121, 1159, 1197, 1235, 1273, 1311

Offset: 0

Author

Clark Kimberling, Apr 10 2012

Keywords

• nonn

Comments

For a guide to related sequences, see A211422.

Crossrefs

Cf. A211422.

Programs

Mathematica

t[n_] := t[n] = Flatten[Table[w^2 + x + y, {w, -n, n}, {x, -n, n}, {y, -n, n}]]
c[n_] := Count[t[n], 0]
t = Table[c[n], {n, 0, 70}]  (* A211430 *)
(t - 1)/2                    (* integers *)