|
|
A012509
|
|
E.g.f.: -log(cos(x)*cos(x)) (even powers only).
|
|
3
|
|
|
0, 2, 4, 32, 544, 15872, 707584, 44736512, 3807514624, 419730685952, 58177770225664, 9902996106248192, 2030847773013704704, 493842960380415967232, 140503203207887919775744, 46238368375619195682947072, 17427925514250338592341622784, 7458815407441059142195019251712
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Of course this is 2*log(sec(x)), so a(n) = 2*A000182(n).
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 2/Q(0) where Q(k) = 1 + x*(2*k + 1)*(2*k + 2)/( -1 + x*(2*k + 2)*(2*k + 3)/Q(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Mar 11 2013
G.f.: (2/G(0) - 1)*sqrt(-x), where G(k)= 2 + 2*sqrt(-x) - 4*x*(k+1)^2/G(k+1); (continued fraction). - Sergei N. Gladkovskii, May 29 2013
G.f.: 2*x*T(0), where T(k) = 1 - (k+1)*(k+2)*x/((k+1)*(k+2)*x - 1/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Nov 15 2013
|
|
EXAMPLE
|
G.f. = x^2+1/6*x^4+2/45*x^6+17/1260*x^8+62/14175*x^10+691/467775*x^12+...
|
|
MATHEMATICA
|
nn = 20; Table[(CoefficientList[Series[-Log[Cos[x]^2], {x, 0, 2*nn}], x] * Range[0, 2*nn]!)[[n]], {n, 1, 2*nn+1, 2}] (* Vaclav Kotesovec, Feb 08 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|