|
%I #11 Nov 28 2016 03:58:22
%S 0,0,17,48,172,320,713,1112,2016,2840,4561,6056,8964,11400,15977,
%T 19648,26400,31744,41257,48664,61620,71512,88689,101680,123800,140376,
%U 168449,189232,224108,249840,292545
%N Number of 2 X 2 matrices with all elements in {0,1,...,n} and positive even determinant.
%C See A210000 for a guide to related sequences.
%H Chai Wah Wu, <a href="/A210372/b210372.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = (A210369(n) - A059306(n))/2. - _Chai Wah Wu_, Nov 27 2016
%t a = 0; b = n; z1 = 30;
%t t[n_] := t[n] = Flatten[Table[w*z - x*y, {w, a, b}, {x, a, b}, {y, a, b}, {z, a, b}]]
%t c[n_, k_] := c[n, k] = Count[t[n], k]
%t u[n_] := u[n] = Sum[c[n, 2 k], {k, 0, n^2}]
%t v[n_] := v[n] = Sum[c[n, 2 k], {k, 1, n^2}]
%t w[n_] := w[n] = Sum[c[n, 2 k - 1], {k, 1, n^2}]
%t Table[u[n], {n, 0, z1}] (* A210371 *)
%t Table[v[n], {n, 0, z1}] (* A210372 *)
%t Table[w[n], {n, 0, z1}] (* A210373 *)
%Y Cf. A210000.
%K nonn
%O 0,3
%A _Clark Kimberling_, Mar 20 2012
%E Offset corrected by _Chai Wah Wu_, Nov 27 2016
|
