A278839 a(n) = det M_n where M_n is the n X n matrix m(i,j) = A000009(i+j).
1, 1, -2, -1, 1, -1, 0, 1, 2, 1, -1, -1, -1, 3, -3, -7, -2, 3, -1, 0, 1, 1, -2, 2, 3, -2, 0, 0, -2, -3, -1, 0, 9, -5, -4, 0, 1, -1, -3, 1, 4, 3, 3, -7, -3, 3, 5, -48, 75, 143, 194, -272, 62, -31, -65, 46, 22, 3, -10, 2, 15, -15, -13, -2, 11, -1, -35, -26, 108
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..500
Programs
-
Mathematica
Flatten[{1, Table[Det[Table[PartitionsQ[i+j], {i, n}, {j, n}]], {n, 1, 100}]}]