A278838 a(n) = det M_n where M_n is the n X n matrix m(i,j) = A000041(i+j).
1, 2, 1, -2, 2, 3, 0, -3, -1, 4, -3, -3, 2, -1, -12, 12, 11, 6, -5, 0, 5, -4, -9, -11, 1, 4, -20, -20, -4, 9, -18, -27, 8, 52, -73, 83, 245, 88, -60, -217, -157, 74, -30, -99, 57, 74, -29, -36, 101, 320, -205, -206, 125, -109, -27, 139, -203, -644, -629, 723
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..500
Programs
-
Mathematica
Flatten[{1, Table[Det[Table[PartitionsP[i+j], {i, n}, {j, n}]], {n, 1, 100}]}]