A211032 Number of 2 X 2 matrices having all elements in {0,1,...,n} and determinant in the open interval (-n,n).
10, 45, 134, 289, 560, 903, 1476, 2091, 3014, 4059, 5456, 6823, 8994, 10905, 13434, 16275, 19740, 22871, 27440, 31327, 36778, 42147, 48176, 53755, 62164, 69241, 77466, 86047, 96474, 105249, 118114, 128261, 141542, 154371, 168172
Offset: 1
Keywords
Programs
-
Mathematica
a = 0; b = n; z1 = 40; 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] c1[n_, m_] := c1[n, m] = Sum[c[n, k], {k, -n, m}] Table[c1[n, n - 1] - c1[n, -n], {n, 1, z1}] (* A211032 *)
Comments