OFFSET
0,3
COMMENTS
Expansion of the exponential generating function arctan(sec(x*y)*sinh(x)), nonzero terms only.
FORMULA
T(n, k) = (-1)^k*binomial(2*n + 1, 2*k)*Euler(2*n). - Detlef Meya, Apr 07 2024
EXAMPLE
Triangle starts:
[0] 1;
[1] -1, 3;
[2] 5, -50, 25;
[3] -61, 1281, -2135, 427;
[4] 1385, -49860, 174510, -116340, 12465;
[5] -50521, 2778655, -16671930, 23340702, -8335965, 555731;
MAPLE
egf := arctan(sec(x*y)*sinh(x)):
serx := simplify(series(egf, x, 26)): coeffx := n -> n!*coeff(serx, x, n):
seq(lprint(seq(coeff(coeffx(2*n + 1), y, 2*k), k = 0..n)), n = 0..7);
MATHEMATICA
T[n_, k_]:=(-1)^k*Binomial[2*n+1, 2*k]*EulerE[2*n]; Flatten[Table[T[n, k], {n, 0, 6}, {k, 0, n}]] (* Detlef Meya, Apr 07 2024 *)
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Peter Luschny, Apr 03 2024
STATUS
approved