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

1, 9, 13, 17, 29, 33, 37, 41, 57, 69, 73, 77, 81, 85, 89, 93, 105, 109, 121, 125, 129, 133, 137, 141, 153, 165, 169, 193, 197, 201, 205, 209, 229, 233, 237, 241, 253, 257, 261, 265, 277, 281, 285, 289, 293, 297, 301, 305, 317, 329, 341, 345, 349, 353

Offset: 0

Author

Clark Kimberling, Apr 10 2012

Keywords

• nonn

Comments

For a guide to related sequences, see A211422.

Links

• Chai Wah Wu, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A211422.

Programs

Mathematica

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