login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A140886
Triangle read by rows: coefficients of the characteristic polynomials of Redheffer matrices.
0
1, 1, -1, 0, -2, 1, -1, -1, 3, -1, -1, 1, 3, -4, 1, -2, 5, -1, -6, 5, -1, -1, 5, -6, -3, 10, -6, 1, -2, 11, -21, 13, 8, -15, 7, -1, -2, 13, -33, 38, -11, -19, 21, -8, 1, -2, 16, -52, 86, -69, 7, 34, -28, 9, -1, -1, 12, -54, 124, -155, 90, 13, -56, 36, -10, 1
OFFSET
1,5
LINKS
Eric Weisstein's World of Mathematics, Redheffer Matrix
EXAMPLE
{1},
{1, -1},
{0, -2, 1},
{-1, -1,3, -1},
{-1, 1, 3, -4, 1},
{-2, 5, -1, -6, 5, -1},
{-1, 5, -6, -3, 10, -6, 1},
{-2, 11, -21, 13, 8, -15, 7, -1},
{-2, 13, -33, 38, -11, -19, 21, -8, 1},
{-2, 16, -52, 86, -69,7, 34, -28, 9, -1},
{-1, 12, -54, 124, -155, 90, 13, -56, 36, -10, 1}
MATHEMATICA
Redheffer[d_] := SparseArray[{{i_, 1} -> 1, {i_, j_} /; Mod[j, i] == 0 -> 1}, {d, d}]
a = Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[Redheffer[d], x], x], {d, 1, 10}]]
Flatten[a]
CROSSREFS
Cf. A140865.
Sequence in context: A294892 A371211 A108886 * A001492 A347049 A054576
KEYWORD
tabl,sign
AUTHOR
EXTENSIONS
Edited by Joerg Arndt, May 30 2021
STATUS
approved