A013467 Expansion of e.g.f. -log(cos(x) - log(x+1)).

0, 1, 1, 4, 7, 53, 215, 1895, 12122, 132205, 1144627, 14912291, 164213696, 2477432371, 33228911417, 569758644845, 9014907260096, 173288317530505, 3159048447572983, 67337939660404735, 1389152842003647000, 32545156966898107751, 749093688443752763861, 19146060950641834007177

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Example

(1/1!)*x + (1/2!)*x^2 + (4/3!)*x^3 + (7/4!)*x^4 + (53/5!)*x^5 + ...

Mathematica

Range[0, 20]! CoefficientList[ Series[-Log[Cos[x] - Log[x + 1]], {x, 0, 20}], x] (* Robert G. Wilson v, Aug 06 2018 *)

Prog

(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:= [0] cat Coefficients(R!(-Log(Cos(x) - Log(x+1)))); [Factorial(n-1)*b[n]: n in [1..m]]; // Vincenzo Librandi, Aug 07 2018

Crossrefs

Sequence in context: A049191 A308463 A261672 * A330450 A060413 A065674

Adjacent sequences: A013464 A013465 A013466 * A013468 A013469 A013470

Keyword

nonn

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Missing a(0)=0, a(1)=1 inserted and title improved by Sean A. Irvine, Aug 06 2018

Status

approved