A126124 -id:A126124 - cp's OEIS frontend

A152063 Triangle read by rows. Coefficients of the Fibonacci product polynomials F(n) = Product_{k=1..(n - 1)/2} (1 + 4cos^2(kPi/n)).

1, 1, 1, 2, 1, 3, 1, 5, 5, 1, 6, 8, 1, 8, 19, 13, 1, 9, 25, 21, 1, 11, 42, 65, 34, 1, 12, 51, 90, 55, 1, 14, 74, 183, 210, 89, 1, 15, 86, 234, 300, 144, 1, 17, 115, 394, 717, 654, 233, 6, 18, 130, 480, 951, 954, 377, 1, 20, 165, 725, 1825, 2622, 1985, 610, 1, 21, 183, 855

Offset: 1

Gary W. Adamson and Roger L. Bagula, Nov 22 2008

The triangle A125076 is formed by reading upward sloping diagonals. - Gary W. Adamson, Nov 26 2008

Bisection of the triangle: odd-indexed rows are reversals of the rows of A126124, even-indexed rows are the reversals of the rows of A123965. - Gary W. Adamson, Aug 15 2010

			First few rows of the triangle are:
1;
1;
1, 2;
1, 3;
1, 5, 5;
1, 6, 8;
1, 8, 19, 13;
1, 9, 25, 21;
1, 11, 42, 65, 34;
1, 12, 51, 90, 55;
1, 14, 74, 183, 210, 89;
1, 15, 86, 234, 300, 144;
1, 17, 115, 394, 717, 654, 233;
1, 18, 130, 480, 951, 954, 377;
1, 20, 165, 725, 1825, 2622, 1985, 610;
1, 21, 183, 855, 2305, 3573, 2939, 987;
...
By row, alternate signs (+,-,+,-,...) with descending exponents. Rows with n terms have exponents (n-1), (n-2), (n-3),...;
Example: There are two rows with 4 terms corresponding to the polynomials
x^3 - 8x^2 + 19x - 13 (roots associated with the heptagon); and
x^3 - 9x^2 + 25x - 21 (roots associated with the 9-gon (nonagon)).

James P. Bradshaw, Philipp Lampe, and Dusan Ziga, Snake graphs and their characteristic polynomials, arXiv:1910.11823 [math.CO], 2019. See 4.7 p. 16.
N. D. Cahill and D. A. Narayan, Fibonacci and Lucas Numbers as Tridiagonal Matrix Determinants, Fibonacci Quarterly, 42(3):216-221, 2004.
M. X. He, D. Simon and P. E. Ricci, Dynamics of the zeros of Fibonacci polynomials, Fibonacci Quarterly, 35(2):160-168, 1997.
V. E. Hoggatt and C. T. Long, Divisibility Properties of Generalized Fibonacci Polynomials, Fibonacci Quarterly, 12:113-120, 1974.

Cf. A000045, A002530 (row sums), A125076, A126124, A123965, A011973.

P := proc(n) option remember; if n < 5 then return
ifelse(n < 3, 1, ifelse(n = 3, 1 + 2*q, 1 + 3*q)) fi;
(1 + 3*q)*P(n - 2) - q^2*P(n - 4) end:
T := n -> local k; seq(coeff(P(n), q, k), k = 0..(n-1)/2):
for n from 1 to 12 do T(n) od;  # (after F. Chapoton)  Peter Luschny, May 27 2024
# Alternative:
P := n -> local k; add(binomial(n-k,k)*(1+x)^(floor(n/2)-k)*x^k, k=0..floor(n/2)):
T := n -> local k; seq(coeff(P(n), x, k), k = 0..n/2):
for n from 0 to 12 do T(n) od; # (after F. Chapoton) Peter Luschny, May 28 2024

Recurrence (as monic polynomials) P(n+4) = (1 + 3*q)*P(n+2) - q^2*P(n). - F. Chapoton, May 27 2024

As monic polynomials, these are the numerators of the polynomials from A011973 evaluated at 1/(1+q). - F. Chapoton, May 28 2024

A123971 Triangle T(n,k), read by rows, defined by T(n,k)=3*T(n-1,k)-T(n-1,k-1)-T(n-2,k), T(0,0)=1, T(1,0)=2, T(1,1)=-1, T(n,k)=0 if k<0 or if k>n.

Original entry on oeis.org

1, 2, -1, 5, -5, 1, 13, -19, 8, -1, 34, -65, 42, -11, 1, 89, -210, 183, -74, 14, -1, 233, -654, 717, -394, 115, -17, 1, 610, -1985, 2622, -1825, 725, -165, 20, -1, 1597, -5911, 9134, -7703, 3885, -1203, 224, -23, 1, 4181, -17345, 30691, -30418, 18633, -7329

Offset: 0

Gary W. Adamson and Roger L. Bagula, Oct 30 2006

This entry is the result of merging two sequences, this one and a later submission by Philippe Deléham, Nov 29 2013 (with edits from Ralf Stephan, Dec 12 2013). Most of the present version is the work of Philippe Deléham, the only things remaining from the original entry are the sequence data and the Mathematica program. - N. J. A. Sloane, May 31 2014
Subtriangle of the triangle given by (0, 2, 1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (1, -2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.
Apart from signs, equals A126124.
Row sums = 1.
Sum_{k=0..n} T(n,k)*(-x)^k = A001519(n+1), A079935(n+1), A004253(n+1), A001653(n+1), A049685(n), A070997(n), A070998(n), A072256(n+1), A078922(n+1), A077417(n), A085260(n+1), A001570(n+1) for x=0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 respectively.

			Triangle begins:
  1
  2, -1
  5, -5, 1
  13, -19, 8, -1
  34, -65, 42, -11, 1
  89, -210, 183, -74, 14, -1
  233, -654, 717, -394, 115, -17, 1
Triangle (0, 2, 1/2, 1/2, 0, 0, ...) DELTA (1, -2, 0, 0, ...) begins:
  1
  0, 1
  0, 2, -1
  0, 5, -5, 1
  0, 13, -19, 8, -1
  0, 34, -65, 42, -11, 1
  0, 89, -210, 183, -74, 14, -1
  0, 233, -654, 717, -394, 115, -17, 1

Cf. A094954, A098495, A123971, A126124, A152063, A001519, A079935, A004253, A001653, A049685, A070997, A070998, A072256, A078922, A077417, A085260, A001570, A001870, A126124.

Mathematica ( general k th center) Clear[M, T, d, a, x, k] k = 3 T[n_, m_, d_] := If[ n == m && n < d && m < d, k, If[n == m - 1 || n == m + 1, -1, If[n == m == d, k - 1, 0]]] M[d_] := Table[T[n, m, d], {n, 1, d}, {m, 1, d}] Table[M[d], {d, 1, 10}] Table[Det[M[d]], {d, 1, 10}] Table[Det[M[d] - x*IdentityMatrix[d]], {d, 1, 10}] a = Join[{M[1]}, Table[CoefficientList[ Det[M[d] - x*IdentityMatrix[d]], x], {d, 1, 10}]] Flatten[a] MatrixForm[a] Table[NSolve[Det[M[d] - x*IdentityMatrix[d]] == 0, x], {d, 1, 10}] Table[x /. NSolve[Det[M[d] - x*IdentityMatrix[d]] == 0, x][[d]], {d, 1, 10}]

T(n,k)=polcoeff(polcoeff(Ser((1-x)/(1+(y-3)*x+x^2)),n,x),n-k,y) \\ Ralf Stephan, Dec 12 2013

@CachedFunction
def A123971(n,k): # With T(0,0) = 1!
    if n< 0: return 0
    if n==0: return 1 if k == 0 else 0
    h = 2*A123971(n-1,k) if n==1 else 3*A123971(n-1,k)
    return A123971(n-1,k-1) - A123971(n-2,k) - h
for n in (0..9): [A123971(n,k) for k in (0..n)] # Peter Luschny, Nov 20 2012

T(n,k) = (-1)^n*A126124(n+1,k+1).
T(n,k) = (-1)^k*Sum_{m=k..n} binomial(m,k)*binomial(m+n,2*m). - Wadim Zudilin, Jan 11 2012
G.f.: (1-x)/(1+(y-3)*x+x^2).
T(n,0) = A001519(n+1) = A000045(2*n+1).
T(n+1,1) = -A001870(n).

Edited by N. J. A. Sloane, May 31 2014

A202209 Triangle T(n,k), read by rows, given by (2, 1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 2, 0, 5, 1, 0, 13, 5, 0, 0, 34, 19, 1, 0, 0, 89, 65, 8, 0, 0, 0, 233, 210, 42, 1, 0, 0, 0, 610, 654, 183, 11, 0, 0, 0, 0, 1597, 1985, 717, 74, 1, 0, 0, 0, 0, 4181, 5911, 2622, 394, 14, 0, 0, 0, 0, 0

Offset: 0

Philippe Deléham, Dec 14 2011

Riordan array ((1-x)/(1-3x+x^2), x^2/(1-3x+x^2)) .

			Triangle begins :
1
2, 0
5, 1, 0
13, 5, 0, 0
34, 19, 1, 0, 0
89, 65, 8, 0, 0, 0
233, 210, 42, 1, 0, 0, 0

Cf. A000045, A000079, A001519, A001870, A001906, A126124, A202207 (antidiagonal sums)

T(n,k) = 3*T(n-1,k) - T(n-2,k) + T(n-2,k-1).
G.f.: (1-x)/(1-3x+(1-y)*x^2).
Sum_{k, 0<=k<=n} T(n,k)*x^k = A057682(n+1), A000079(n), A122367(n), A025192(n), A052924(n), A104934(n), A202206(n), A122117(n), A197189(n) for x = -2, -1, 0, 1, 2, 3, 4, 5, 6 respectively.
T(n,0) = A122367(n) = A000045(2n+1).

cp's OEIS Frontend

A152063 Triangle read by rows. Coefficients of the Fibonacci product polynomials F(n) = Product_{k=1..(n - 1)/2} (1 + 4cos^2(kPi/n)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Formula

A123971 Triangle T(n,k), read by rows, defined by T(n,k)=3*T(n-1,k)-T(n-1,k-1)-T(n-2,k), T(0,0)=1, T(1,0)=2, T(1,1)=-1, T(n,k)=0 if k<0 or if k>n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Sage

Formula

Extensions

A202209 Triangle T(n,k), read by rows, given by (2, 1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

cp's OEIS Frontend

A152063 Triangle read by rows. Coefficients of the Fibonacci product polynomials F(n) = Product_{k=1..(n - 1)/2} (1 + 4*cos^2(k*Pi/n)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Formula

A123971 Triangle T(n,k), read by rows, defined by T(n,k)=3*T(n-1,k)-T(n-1,k-1)-T(n-2,k), T(0,0)=1, T(1,0)=2, T(1,1)=-1, T(n,k)=0 if k<0 or if k>n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Sage

Formula

Extensions

A202209 Triangle T(n,k), read by rows, given by (2, 1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A152063 Triangle read by rows. Coefficients of the Fibonacci product polynomials F(n) = Product_{k=1..(n - 1)/2} (1 + 4cos^2(kPi/n)).