Stefano Spezia, <a href="/A012748/b012748_1.txt">Table of n, a(n) for n = 0..150</a>
Stefano Spezia, <a href="/A012748/b012748_1.txt">Table of n, a(n) for n = 0..150</a>
proposed
approved
editing
proposed
a(14)-a(16) from Stefano Spezia, Jun 21 2024
proposed
editing
editing
proposed
Stefano Spezia, <a href="/A012748/b012748_1.txt">Table of n, a(n) for n = 0..150</a>
a(14)-a(16) from Stefano Spezia, Jun 21 2024
Expansion of e.g.f. sec(arctanh(x)*cos(x)), only even powers.
E.g.f. = 1 + 1/2!*x^2 + 1/42!* + x^4 /4! + 25/6!*x^6 /6! + 3617/8!*x^8 /8! + ...
sec(arctanh(x)*cos(x))=1+1/2!*x^2+1/4!*x^4+25/6!*x^6+3617/8!*x^8...
Expansion of e.g.f. sec(arctanh(x)*cos(x)).
E.g.f. = 1 + 1/2!*x^2 + 1/4!*x^4 + 25/6!*x^6 + 3617/8!*x^8 + ...
nmax=32; DeleteCases[CoefficientList[Series[Sec[ArcTanh[x]Cos[x]], {x, 0, nmax}], x], 0](2Range[0, nmax/2])! (* Stefano Spezia, Jun 21 2024 *)
a(14)-a(16) from Stefano Spezia, Jun 21 2024