|
%I #9 Feb 22 2022 14:45:54
%S 5,7,13,9,19,29,11,25,35,49,13,31,45,63,81,15,37,55,73,91,113,17,43,
%T 65,87,109,131,149,19,45,71,97,123,145,175,197,21,51,81,107,141,163,
%U 197,223,253,23,57,91,121,159,185,219,245,279,317,25,63,101,135,169
%N T(n,k) = number of ordered pairs of integers (x,y) with x^2/n^2 + y^2/k^2 <= 1, 1<=k<=n; triangular array, read by rows.
%C T(n,k) = number of lattice points covered by an ellipse with semimajor axis = n, semiminor axis = k and center = (0,0).
%C a(n) = A088898(n) + A088899(n);
%C T(n,n) = A000328(n).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Ellipse.html">Ellipse</a>
%t T[n_, k_] := Reduce[x^2/n^2 + y^2/k^2 <= 1, {x, y}, Integers] // Length;
%t Table[T[n, k], {n, 1, 11}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Sep 27 2021 *)
%Y Cf. A000328, A088898, A088899.
%K nonn,tabl
%O 1,1
%A _Reinhard Zumkeller_, Oct 21 2003
|
