login
A342314
T(n, k) = [x^k] 2^n*(Euler(n, x/2) + Euler(n, x)), where Euler(n, x) are the Euler polynomials. Triangle read by rows, T(n, k) for 0 <= k <= n.
0
2, -2, 3, 0, -6, 5, 4, 0, -15, 9, 0, 24, 0, -36, 17, -32, 0, 100, 0, -85, 33, 0, -288, 0, 360, 0, -198, 65, 544, 0, -1680, 0, 1190, 0, -455, 129, 0, 6528, 0, -8064, 0, 3696, 0, -1032, 257, -15872, 0, 48960, 0, -34272, 0, 10920, 0, -2313, 513, 0, -238080, 0, 293760, 0, -133056, 0, 30960, 0, -5130, 1025
OFFSET
0,1
EXAMPLE
Table starts:
[0] 2
[1] -2, 3
[2] 0, -6, 5
[3] 4, 0, -15, 9
[4] 0, 24, 0, -36, 17
[5] -32, 0, 100, 0, -85, 33
[6] 0, -288, 0, 360, 0, -198, 65
[7] 544, 0, -1680, 0, 1190, 0, -455, 129
[8] 0, 6528, 0, -8064, 0, 3696, 0, -1032, 257
[9] -15872, 0, 48960, 0, -34272, 0, 10920, 0, -2313, 513
MAPLE
CoeffList := p -> op(PolynomialTools:-CoefficientList(p, x)):
E := (n, x) -> 2^n*(euler(n, x/2) + euler(n, x));
seq(CoeffList(E(n, x)), n=0..9);
CROSSREFS
Cf. A060096/A060097, A163982 (row sums).
Sequence in context: A199784 A349384 A127466 * A099118 A320999 A107098
KEYWORD
sign,tabl
AUTHOR
Peter Luschny, Mar 19 2021
STATUS
approved