login
A013474
Expansion of cos(cos(x)-cosh(x)).
0
1, -12, 1568, -445632, 76844288, 278739068928, -467851397312512, -2679102291371999232, 13369295760767407751168, 198192229563606535497842688, -1400852802790123139561996419072, -65350779506647538962325382377766912
OFFSET
0,2
EXAMPLE
cos(cos(x)-cosh(x))=1-12/4!*x^4+1568/8!*x^8-445632/12!*x^12...
MATHEMATICA
With[{nn=50}, Take[CoefficientList[Series[Cos[Cos[x]-Cosh[x]], {x, 0, nn}], x] Range[0, nn-2]!, {1, -1, 4}]] (* Harvey P. Dale, May 02 2020 *)
PROG
(PARI) a(n)=if(n<0, 0, (4*n)!*polcoeff(cos(cos(x+x*O(x^(4*n)))-cosh(x+x*O(x^(4*n)))), 4*n))
CROSSREFS
Sequence in context: A299694 A366832 A160237 * A013515 A159383 A015011
KEYWORD
sign,easy
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
More terms from Ralf Stephan, Jan 17 2003
STATUS
approved