cp's OEIS Frontend

A119879 Exponential Riordan array (sech(x),x).

%I A119879 #133 Sep 13 2024 06:52:40
%S A119879 1,0,1,-1,0,1,0,-3,0,1,5,0,-6,0,1,0,25,0,-10,0,1,-61,0,75,0,-15,0,1,0,
%T A119879 -427,0,175,0,-21,0,1,1385,0,-1708,0,350,0,-28,0,1,0,12465,0,-5124,0,
%U A119879 630,0,-36,0,1,-50521,0,62325,0,-12810,0,1050,0,-45,0,1
%N A119879 Exponential Riordan array (sech(x),x).
%C A119879 Row sums have e.g.f. exp(x)*sech(x) (signed version of A009006). Inverse of masked Pascal triangle A119467. Transforms the sequence with e.g.f. g(x) to the sequence with e.g.f. g(x)*sech(x).
%C A119879 Coefficients of the Swiss-Knife polynomials for the computation of Euler, tangent and Bernoulli number (triangle read by rows). Another version in A153641. - _Philippe Deléham_, Oct 26 2013
%C A119879 Relations to Green functions and raising/creation and lowering/annihilation/destruction operators are presented in Hodges and Sukumar and in Copeland's discussion of this sequence and 2020 pdf. - _Tom Copeland_, Jul 24 2020
%H A119879 G. C. Greubel, <a href="/A119879/b119879.txt">Rows n=0..100 of triangle, flattened</a>
%H A119879 Paul Barry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL14/Barry1/barry97r2.html">Riordan Arrays, Orthogonal Polynomials as Moments, and Hankel Transforms</a>, J. Int. Seq. 14 (2011) # 11.2.2, example 28.
%H A119879 Tom Copeland, <a href="https://tcjpn.wordpress.com/2015/10/12/the-elliptic-lie-triad-kdv-and-ricattt-equations-infinigens-and-elliptic-genera/">The Elliptic Lie Triad: Ricatti and KdV Equations, Infinigens, and Elliptic Genera</a>, 2015.
%H A119879 Tom Copeland, <a href="/A119879/a119879.txt">Discussion of this sequence</a>
%H A119879 Tom Copeland, <a href="https://tcjpn.wordpress.com/2020/07/11/skipping-over-dimensions-juggling-zeros-in-the-matrix/">SKipping over Dimensions, Juggling Zeros in the Matrix</a>, 2020.
%H A119879 A. Hodges and C. V. Sukumar, <a href="http://dx.doi.org/10.1098/rspa.2007.0001">Bernoulli, Euler, permutations and quantum algebras</a>, Proc. R. Soc. A Oct. 2007 vol 463 no. 463 2086 2401-2414.
%H A119879 Peter Luschny, <a href="http://www.luschny.de/math/seq/SwissKnifeDecompositions.html">Additive decompositions of classical numbers via the Swiss-Knife polynomials</a> [_Tom Copeland_, Oct 20 2015]
%H A119879 Miguel Méndez and Rafael Sánchez, <a href="https://arxiv.org/abs/1707.00336">On the combinatorics of Riordan arrays and Sheffer polynomials: monoids, operads and monops</a>, arXiv:1707.00336 [math.CO], 2017, Section 4.3, Example 4.
%H A119879 Miguel A. Méndez and Rafael Sánchez Lamoneda, <a href="http://www.combinatorics.org/ojs/index.php/eljc/article/view/v25i3p25">Monops, Monoids and Operads: The Combinatorics of Sheffer Polynomials</a>, The Electronic Journal of Combinatorics 25(3) (2018), #P3.25.
%F A119879 Number triangle whose k-th column has e.g.f. sech(x)*x^k/k!.
%F A119879 T(n,k) = C(n,k)*2^(n-k)*E_{n-k}(1/2) where C(n,k) is the binomial coefficient and E_{m}(x) are the Euler polynomials. - _Peter Luschny_, Jan 25 2009
%F A119879 The coefficients in ascending order of x^i of the polynomials p{0}(x) = 1 and p{n}(x) = Sum_{k=0..n-1; k even} binomial(n,k)*p{k}(0)*((n mod 2) - 1 + x^(n-k)). - _Peter Luschny_, Jul 16 2012
%F A119879 E.g.f.: exp(x*z)/cosh(x). - _Peter Luschny_, Aug 01 2012
%F A119879 Sum_{k=0..n} T(n,k)*x^k = A122045(n), A155585(n), A119880(n), A119881(n) for x = 0, 1, 2, 3 respectively. - _Philippe Deléham_, Oct 27 2013
%F A119879 With all offsets 0, let A_n(x;y) = (y + E.(x))^n, an Appell sequence in y where E.(x)^k = E_k(x) are the Eulerian polynomials of A123125. Then the row polynomials of A046802 (the h-polynomials of the stellahedra) are given by h_n(x) = A_n(x;1); the row polynomials of A248727 (the face polynomials of the stellahedra), by f_n(x) = A_n(1 + x;1); the Swiss-knife polynomials of this entry, A119879, by Sw_n(x) = A_n(-1;1 + x); and the row polynomials of the Worpitsky triangle (A130850), by w_n(x) = A(1 + x;0). Other specializations of A_n(x;y) give A090582 (the f-polynomials of the permutohedra, cf. also A019538) and A028246 (another version of the Worpitsky triangle). - _Tom Copeland_, Jan 24 2020
%F A119879 Triangle equals P*((I + P^2)/2)^(-1), where P denotes Pascal's triangle A007318. - _Peter Bala_, Mar 07 2024
%e A119879 Triangle begins:
%e A119879      1;
%e A119879      0,    1;
%e A119879     -1,    0,     1;
%e A119879      0,   -3,     0,   1;
%e A119879      5,    0,    -6,   0,   1;
%e A119879      0,   25,     0, -10,   0,   1;
%e A119879    -61,    0,    75,   0, -15,   0,   1;
%e A119879      0, -427,     0, 175,   0, -21,   0,  1;
%e A119879   1385,    0, -1708,   0, 350,   0, -28,  0,  1;
%p A119879 T := (n,k) -> binomial(n,k)*2^(n-k)*euler(n-k,1/2): # _Peter Luschny_, Jan 25 2009
%t A119879 T[n_, k_] := Binomial[n, k] 2^(n-k) EulerE[n-k, 1/2];
%t A119879 Table[T[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Jun 20 2018, after _Peter Luschny_ *)
%o A119879 (Sage)
%o A119879 @CachedFunction
%o A119879 def A119879_poly(n, x) :
%o A119879     return 1 if n == 0  else add(A119879_poly(k, 0)*binomial(n, k)*(x^(n-k)-1+n%2) for k in range(n)[::2])
%o A119879 def A119879_row(n) :
%o A119879     R = PolynomialRing(ZZ, 'x')
%o A119879     return R(A119879_poly(n,x)).coeffs()  # _Peter Luschny_, Jul 16 2012
%o A119879 # Alternatively:
%o A119879 (Sage) # uses[riordan_array from A256893]
%o A119879 riordan_array(sech(x), x, 9, exp=true) # _Peter Luschny_, Apr 19 2015
%o A119879 (PARI)
%o A119879 {T(n,k) = binomial(n,k)*2^(n-k)*(2/(n-k+1))*(subst(bernpol(n-k+1, x), x, 1/2) - 2^(n-k+1)*subst(bernpol(n-k+1, x), x, 1/4))};
%o A119879 for(n=0,5, for(k=0,n, print1(T(n,k), ", "))) \\ _G. C. Greubel_, Feb 25 2019
%Y A119879 Row sums are A155585. - _Johannes W. Meijer_, Apr 20 2011
%Y A119879 Rows reversed: A081658.
%Y A119879 Cf. A109449, A153641, A162660. - _Philippe Deléham_, Oct 26 2013
%Y A119879 Cf. A000182, A046802, A119467, A133314.
%Y A119879 Cf. A019538, A028246, A090582, A123125, A130850, A248727.
%K A119879 easy,sign,tabl
%O A119879 0,8
%A A119879 _Paul Barry_, May 26 2006