login
A009452
Expansion of e.g.f.: sin(log(1+tan(x))).
0
0, 1, -1, 3, -8, 26, -46, -542, 12272, -196204, 2970284, -46125412, 747689152, -12796612984, 231568711464, -4435090726232, 89781803413632, -1918433012222064, 43187041330469744, -1022364892192828752
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sin[Log[1+Tan[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 18 2022 *)
CROSSREFS
Sequence in context: A009392 A130648 A061812 * A206141 A281972 A355869
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 18 2022
STATUS
approved