A294314 Expansion of e.g.f. log(1 + x*sec(x))*exp(x).

0, 1, 1, 5, 0, 64, -245, 2757, -23576, 272256, -3270977, 45055845, -671589952, 10984688636, -193875825117, 3688182769117, -75085512079184, 1630385857436224, -37596306847103457, 917765946045581357, -23641953753495247624, 640958728426947233468, -18242640219843554954221

Offset

0,4

Links

Table of n, a(n) for n=0..22.

Example

log(1 + x*sec(x))*exp(x) = x/1! + x^2/2! + 5*x^3/3! + 64*x^5/5! - 245*x^6/6! + ...

Maple

a:=series(log(1+x*sec(x))*exp(x), x=0, 23): seq(n!*coeff(a, x, n), n=0..22); # Paolo P. Lava, Mar 27 2019

Mathematica

nmax = 22; CoefficientList[Series[Log[1 + x Sec[x]] Exp[x], {x, 0, nmax}], x] Range[0, nmax]!

Crossrefs

Cf. A009334, A009371, A009442, A009843, A295278, A296336, A296436, A296438, A297206.

Sequence in context: A373388 A103709 A122045 * A347599 A266324 A073911

Adjacent sequences: A294311 A294312 A294313 * A294315 A294316 A294317

Keyword

sign

Author

Ilya Gutkovskiy, Dec 27 2017

Status

approved