login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A009020 Expansion of e.g.f.: cos(log(1 + sinh(x))). 1
1, 0, -1, 3, -14, 70, -406, 2723, -20684, 176100, -1661236, 17182143, -193042904, 2335585330, -30176889016, 412862112263, -5925850093424, 88231921922760, -1341868300356496, 20329433614333083, -291715707804107744 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

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

MATHEMATICA

With[{nn=20}, CoefficientList[Series[Cos[Log[1+Sinh[x]]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 10 2014 *)

PROG

(PARI) x='x+O('x^30); Vec(serlaplace(cos(log(1 + sinh(x))))) \\ G. C. Greubel, Jul 22 2018

(MAGMA) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Log(1 + Sinh(x))))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 22 2018

CROSSREFS

Sequence in context: A327871 A006772 A320421 * A186765 A109792 A137177

Adjacent sequences:  A009017 A009018 A009019 * A009021 A009022 A009023

KEYWORD

sign,easy

AUTHOR

R. H. Hardin

EXTENSIONS

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

Definition clarified and Mathematica program replaced by Harvey P. Dale, Apr 10 2014

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 28 22:40 EST 2020. Contains 331328 sequences. (Running on oeis4.)