A297215
Expansion of e.g.f. exp(cos(tan(x))-1) (even powers only).
Original entry on oeis.org
1, -1, -4, -7, 1003, 64836, 3350349, 104475395, -12291888052, -4268687337603, -877769324284177, -139938933307889412, -9581950082738688167, 6333750977985105075527, 4837035706491587870342140, 2439859866050865745230242689, 1033093869484852949078289394195
Offset: 0
exp(cos(tan(x))-1) = 1 - x^2/2! - 4*x^4/4! - 7*x^6/6! + 1003*x^8/8! + 64836*x^10/10! + ...
Cf.
A003710,
A009074,
A009201,
A009202,
A009203,
A009204,
A009238,
A009239,
A009240,
A009241,
A009254,
A297214.
-
nmax = 16; Table[(CoefficientList[Series[Exp[Cos[Tan[x]] - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
A298245
Expansion of e.g.f. exp(cos(tanh(x))-1) (even powers only).
Original entry on oeis.org
1, -1, 12, -327, 15883, -1202524, 130394253, -19113418989, 3632485387276, -867280709024131, 253803272212372575, -89250842789856565620, 37105568909251258810585, -17991614679286735149423193, 10057557723279565571532112044, -6417980557539322347015938082111
Offset: 0
exp(cos(tanh(x))-1) = 1 - x^2/2! + 12*x^4/4! - 327*x^6/6! + 15883*x^8/8! - 1202524*x^10/10! + ...
Cf.
A003711,
A009090,
A009201,
A009202,
A009203,
A009204,
A009238,
A009239,
A009240,
A009241,
A009254,
A297214,
A297215.
-
nmax = 15; Table[(CoefficientList[Series[Exp[Cos[Tanh[x]] - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
Showing 1-2 of 2 results.