|
|
A012001
|
|
E.g.f.: -tan(log(cos(x))), even powers only.
|
|
1
|
|
|
0, 1, 2, 46, 1112, 55816, 3804272, 372397936, 47682319232, 7841034902656, 1601250315636992, 398250217200414976, 118406090377889303552, 41478295178427681104896, 16904918898000336224294912
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
The highest power of 2 dividing a(n) appears to be A011371(n). The odd part starts 1, 1, 23, 139, 6977, 237767, 23274871, 372518119, 61258085177,.... - Ralf Stephan, Aug 14 2013
|
|
LINKS
|
|
|
EXAMPLE
|
-tan(log(cos(x))) = 1/2!*x^2 + 2/4!*x^4 + 46/6!*x^6 + 1112/8!*x^8 + ...
|
|
MATHEMATICA
|
With[{nn = 50}, Take[CoefficientList[Series[-Tan[Log[Cos[x]]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* G. C. Greubel, Apr 12 2017 *)
|
|
PROG
|
(PARI) a(n)={n*=2; my(x='x+O('x^(n+1))); polcoeff( serlaplace( -tan(log(cos(x)))), n); } \\ Ralf Stephan, Aug 14 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|