|
%I #4 Nov 29 2016 07:08:12
%S 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,
%T -2,-3,-1,0,9,-5,-4,0,1,-1,-3,1,4,3,3,-7,-3,3,5,-48,75,143,194,-272,
%U 62,-31,-65,46,22,3,-10,2,15,-15,-13,-2,11,-1,-35,-26,108
%N a(n) = det M_n where M_n is the n X n matrix m(i,j) = A000009(i+j).
%H Vaclav Kotesovec, <a href="/A278839/b278839.txt">Table of n, a(n) for n = 0..500</a>
%t Flatten[{1, Table[Det[Table[PartitionsQ[i+j], {i, n}, {j, n}]], {n, 1, 100}]}]
%Y Cf. A000009, A005249, A071543, A204249, A278838, A278841.
%K sign
%O 0,3
%A _Vaclav Kotesovec_, Nov 29 2016
|
