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,3

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..500

Mathematica

Flatten[{1, Table[Det[Table[PartitionsQ[i+j], {i, n}, {j, n}]], {n, 1, 100}]}]

Crossrefs

Cf. A000009, A005249, A071543, A204249, A278838, A278841.

Sequence in context: A052314 A271606 A093718 * A348653 A278287 A227752

Adjacent sequences: A278836 A278837 A278838 * A278840 A278841 A278842

Keyword

sign

Author

Vaclav Kotesovec, Nov 29 2016

Status

approved