|
|
A143194
|
|
Triangle read by rows: row n gives coefficients of expansion of q-tangent number T_{2n+1}(q) in powers of q.
|
|
1
|
|
|
1, 1, 1, 2, 4, 4, 4, 2, 5, 17, 29, 39, 46, 46, 39, 29, 17, 5, 14, 70, 180, 330, 496, 662, 812, 922, 964, 922, 812, 662, 496, 330, 180, 70, 14, 42, 282, 984, 2408, 4668, 7696, 11338, 15442, 19810, 24090, 27798, 30478, 31860, 31860, 30478, 27798, 24090, 19810, 15442, 11338, 7696, 4668, 2408, 984, 282, 42
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
The Foata-Han q-tangent numbers are polynomials related to the Carlitz q-Eulerian polynomials. Foata and Han give an explicit combinatorial interpretation in the setup of dimer combinatorics.
T_{2n+1}(1) are the tangent numbers A000182.
T_{2n+1}(0) are the Catalan numbers A000108. (End)
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
1
1 1
2 4 4 4 2
5 17 29 39 46 46 39 29 17 5
...
|
|
MAPLE
|
# Computes the polynomial T_{2n+1} for n>=0.
T := proc(n) local qn, s, m, k, q; qn := proc(a, q, n) local k; if n = 0 then 1 else mul(1-a*q^k, k=0..n-1) fi end; s := add(binomial(2*n+1, k)*(-1)^k/(1+q^(k-n)), k=0..2*n+1); m := mul(1+q^k, k=1..n); (-1)^(n+1)*qn(-1, q, n+2)*s*m/(1-q)^(2*n+1); PolynomialTools:-CoefficientList(simplify(%), q) end: seq(print(T(n)), n = 0..8); # Peter Luschny, Jan 26 2009, Apr 12 2024
|
|
MATHEMATICA
|
qn[a_, q_, n_] := If[n == 0, 1, Product[1-a*q^k, {k, 0, n-1}]];
T[n_][q_] := Module[{s, m, P},
s = Sum[Binomial[2*n+1, k]*(-1)^k/(1+q^(k-n)), {k, 0, 2*n+1}];
m = Product[1+q^k, {k, 1, n}];
P = (-1)^(n+1)*qn[-1, q, n+2]*s*m/(1-q)^(2*n+1);
CoefficientList[P, q]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|