A297214
Expansion of e.g.f. exp(cos(sin(x))-1) (even powers only).
Original entry on oeis.org
1, -1, 8, -127, 3523, -146964, 8538477, -655457233, 63974756924, -7713566822979, 1123255462229507, -193995005614903728, 39147722262966666217, -9115873617718182207793, 2423565558533387761866928, -728969374928760685473620951, 246100624914698937364249220851
Offset: 0
exp(cos(sin(x))-1) = 1 - x^2/2! + 8*x^4/4! - 127*x^6/6! + 3523*x^8/8! - 146964*x^10/10! + ...
Cf.
A003709,
A009045,
A009201,
A009202,
A009203,
A009204,
A009238,
A009239,
A009240,
A009241,
A009254,
A297215.
-
nmax = 16; Table[(CoefficientList[Series[Exp[Cos[Sin[x]] - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
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}]
A302579
Expansion of e.g.f. exp(cosh(x)/cos(x)-1) (even powers only).
Original entry on oeis.org
1, 2, 24, 632, 28784, 1991552, 193410624, 24993180032, 4134783110144, 850499728758272, 212579274719007744, 63381008507902595072, 22200896917210834817024, 9019985888570141052280832, 4204783981520054371872374784, 2228007853953954434037178007552
Offset: 0
exp(cosh(x)/cos(x)-1) = 1 + 2*x^2/2! + 24*x^4/4! + 632*x^6/6! + 28784*x^8/8! + ...
-
nmax = 15; Table[(CoefficientList[Series[Exp[Cosh[x]/Cos[x] - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
Showing 1-4 of 4 results.