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

1, 5, 10, 16, 22, 30, 38, 46, 55, 65, 75, 85, 95, 107, 119, 131, 143, 155, 168, 182, 196, 210, 224, 238, 252, 268, 284, 300, 316, 332, 348, 364, 381, 399, 417, 435, 453, 471, 489, 507, 525, 545, 565, 585, 605, 625, 645, 665, 685, 705, 726, 748, 770

Offset

0,2

Comments

For a guide to related sequences, see A211422.

Links

Table of n, a(n) for n=0..52.

Mathematica

t[n_] := t[n] = Flatten[Table[(n + 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}]  (* A211483 *)

Crossrefs

Cf. A211422.

Sequence in context: A313932 A313933 A313934 * A313935 A313936 A313937

Adjacent sequences: A211480 A211481 A211482 * A211484 A211485 A211486

Keyword

nonn

Author

Clark Kimberling, Apr 12 2012

Status

approved