OFFSET
1,3
COMMENTS
Row sums:
{1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1}.
FORMULA
Matrix: M(d)=(2 + Sign[n - m])*w[Mod[n + m, d]; If[n == 0, w[n] = x, w[n] = 1]; out_n,m=Coefficients[Det(M(d)))
EXAMPLE
{1},
{0, 2},
{-3, 0, 4},
{-12, 20, 0, -6},
{24, -84, 73, 0, -12},
{48, -256,408, -216, 0, 18},
{-48, 480, -1328, 1464, -603, 0, 36},
{0, 704, -3312, 5760, -4500,1404, 0, -54},
{-192, 0, 4720, -15264, 20520, -13212, 3537, 0, -108},
{-768, 3584, 0, -26880, 62496, -64512, 33264, -7344, 0, 162},
{1536, -12288, 29440, 0, -116256, 221760, -195552, 88560, -17523, 0, 324}
MATHEMATICA
M[d_] := Table[(2 + Sign[n - m])*w[Mod[n + m, d]], {n, 1, d}, {m, 1, d}]; a = Table[M[d], {d, 1, 10}]; Table[If[n == 0, w[n] = x, w[n] = 1], {n, 0, 10}]; Table[Det[a[[d]]], {d, 1, 10}]; a0 = Join[{{1}}, Table[CoefficientList[Det[a[[d]]], x], {d, 1, 10}]]; Flatten[a0] Table[Apply[Plus, CoefficientList[Det[a[[d]]], x]], {d, 1, 10}];
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, May 26 2008
STATUS
approved