A331818 E.g.f.: exp(1 - sec(x)) (even powers only).

1, -1, -2, -1, 253, 12854, 668053, 39148199, 2456262898, 130790155859, -3853032641387, -4312625669814166, -1531200886955161127, -489884373969089299201, -159097972223555719000922, -54064488830901650420384521, -19284261543086608770504566147

Offset

0,3

Links

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

Formula

a(0) = 1; a(n) = -Sum_{k=1..n} binomial(2*n-1,2*k-1) * A000364(k) * a(n-k).

Mathematica

nmax = 16; Table[(CoefficientList[Series[Exp[1 - Sec[x]], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
a[0] = 1; a[n_] := a[n] = -Sum[Binomial[2 n - 1, 2 k - 1] Abs[EulerE[2 k]] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 16}]

Prog

(PARI) a(n) = {polcoef(serlaplace(exp(1 - 1/cos(x + O(x^(2*n + 1))))), 2*n)} \\ Andrew Howroyd, Jan 27 2020

Crossrefs

Cf. A000364, A005046, A217502, A260884.

Sequence in context: A337051 A016448 A098879 * A261437 A012867 A178393

Adjacent sequences: A331815 A331816 A331817 * A331819 A331820 A331821

Keyword

sign

Author

Ilya Gutkovskiy, Jan 27 2020

Status

approved