login
A176192
Det(M) where M is an n X n matrix with M[i,j]=Floor[Log(i+j)]
0
0, -1, 0, 0, 1, -1, -2, 0, 0, 0, 0, 0, 2, -3, 1, 0, 0, 1, 4, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -3, 7, -4, 0, 0, 4, 3, -1, 0, 0, 0, 0, 0, 1, 4, -5, 0, 0, -5, -9, -4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -4, 13, -9, 0, 0, 9
OFFSET
1,7
MATHEMATICA
a[n_]:= Det@Floor[Table[Log[i + j], {i, n}, {j, n}]]; Table[a[n], {n, 1, 200}]
CROSSREFS
Sequence in context: A083339 A216278 A133827 * A028633 A316898 A351254
KEYWORD
sign
AUTHOR
STATUS
approved