A012006 -arctanh(log(cos(x))) = 1/2!*x^2+2/4!*x^4+46/6!*x^6+1112/8!*x^8...

1, 2, 46, 1112, 63376, 4635872, 523749136, 76049858432, 14634264866176, 3496967323112192, 1032537134569578496, 366067157640456292352, 154146217678162805226496, 75874517780279404503590912

Offset

0,2

Links

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

Mathematica

Table[n!*SeriesCoefficient[-ArcTanh[Log[Cos[x]]], {x, 0, n}], {n, 2, 40, 2}] (* Vaclav Kotesovec, Oct 25 2013 *)

Crossrefs

Sequence in context: A066555 A290046 A012001 * A279524 A264500 A173586

Adjacent sequences: A012003 A012004 A012005 * A012007 A012008 A012009

Keyword

nonn

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Status

approved