A211148 Number of 2 X 2 matrices having all terms in {-n,...,0,..,n} and positive determinant.

24, 248, 1056, 3008, 6904, 13624, 24448, 40576, 63640, 95288, 137632, 192384, 262392, 349688, 457088, 587520, 744344, 930104, 1149152, 1404160, 1699640, 2039544, 2428352, 2869312, 3368472, 3929912, 4558688, 5259712, 6039480

Offset: 1

Author

Clark Kimberling, Apr 04 2012

Keywords

• nonn

Comments

For a guide to related sequences, see A210000.

Crossrefs

Cf. A210000.

Programs

Mathematica

a = -n; b = n; z1 = 30;
t[n_] := t[n] = Flatten[Table[w*z - x*y, {w, a, b}, {x, a, b}, {y, a, b}, {z, a, b}]]
c[n_, k_] := c[n, k] = Count[t[n], k]
Table[c[n, 0], {n, 1, z1}]   (* A209981 *)
c1[n_, m_] := c1[n, m] = Sum[c[n, k], {k, 1, m}]
t = Table[c1[n, 2*n^2], {n, 1, z1}]   (* A211148 *)
2 t   (* A211149 *)
t/8   (* integers *)