|
|
A013195
|
|
E.g.f.: log(sec(x) + arcsin(x)).
|
|
1
|
|
|
0, 1, 0, 0, 4, -12, 72, -168, 544, 8144, -91520, 1384768, -11984128, 149032128, -1158162432, 16299168896, -125837340672, 2859883876608, -32260942757888, 1008997773326336, -15535095938220032, 466978134769624064
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
EXAMPLE
|
G.f. = x + 4*x^4 - 12*x^5 + 72*x^6 - 168*x^7 + 544*x^8 + 8144*x^9 - 91520*x^10 + ...
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Log[Sec[x]+ArcSin[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Jun 05 2021 *)
|
|
PROG
|
(PARI) {a(n) = my(A); if( n<0, 0, A = x * O(x^n); n! * polcoeff( log( 1 / cos(x + A) + asin(x + A) ), n))}; /* Michael Somos, Feb 17 2017 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|