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

0, 0, 0, 0, 1, 3, 5, 7, 7, 7, 7, 7, 7, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 33, 33, 33, 33, 33, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 98, 100, 102, 104, 106, 108

Offset

0,6

Comments

For a guide to related sequences, see A211422.

Links

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

Mathematica

t[n_] := t[n] = Flatten[Table[w^3 - (x + y)^2, {w, 1, n}, {x, 1, n}, {y, 1, n}]]
c[n_] := Count[t[n], 0]
t = Table[c[n], {n, 0, 80}]  (* A211517 *)

Crossrefs

Cf. A211422.

Sequence in context: A342668 A297346 A342622 * A254935 A104199 A103470

Adjacent sequences: A211514 A211515 A211516 * A211518 A211519 A211520

Keyword

nonn

Author

Clark Kimberling, Apr 14 2012

Status

approved