OFFSET
1,2
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Ellipse
MATHEMATICA
T[1, 1] = 1;
T[n_, k_] := Reduce[x^2/n^2 + y^2/k^2 < 1, {x, y}, Integers] // Length;
Table[T[n, k], {n, 1, 11}, {k, 1, n}] // Flatten (* Jean-François Alcover, Sep 27 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Oct 21 2003
STATUS
approved