A009425 Expansion of e.g.f.: log(1+x)/cos(sin(x)).

0, 1, -1, 5, -12, 49, -225, 1133, -8176, 61665, -567225, 5701365, -62634924, 755601105, -9768453513, 136547354973, -2041147352640, 32565339301569, -552510593169489, 9924462641102181, -188278493388946860, 3759992000006225265

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Log[1+x]/Cos[Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 14 2022 *)

Crossrefs

Sequence in context: A254217 A211951 A356539 * A009416 A332477 A240389

Adjacent sequences: A009422 A009423 A009424 * A009426 A009427 A009428

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, May 14 2022

Status

approved