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!)
A285043 Expansion of cosh(3*arctanh(2*sqrt(x))). 5
1, 18, 102, 500, 2310, 10332, 45276, 195624, 836550, 3549260, 14965236, 62783448, 262303132, 1092063000, 4533175800, 18769219920, 77539370310, 319704052140, 1315894618500, 5407825361400, 22193291140020 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Note that the function cosh(2*n*arctanh(sqrt(x)) is the o.g.f. for the coordination sequence of the C_n lattice. See, for example, A010006.

In A285043 through A285046 we consider sequences with o.g.f. cosh((2*n+1)*arctanh(2*sqrt(x)) for n = 1, 2, 3 and 4. For n = 0 we get the central binomial coefficients A000984.

LINKS

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

FORMULA

a(n) = (8*n + 1)*binomial(2*n,n).

O.g.f. cosh(3*arctanh(2*sqrt(x))) = (1 + 12*x)/(1 - 4*x)^(3/2) = 1 + 18*x + 102*x^2 + 500*x^3 + ....

D-finite with recurrence: n*a(n) +2*(4*n-13)*a(n-1) +24*(-2*n+3)*a(n-2)=0. - R. J. Mathar, Jan 22 2020

MAPLE

seq((8*n + 1)*binomial(2*n, n), n = 0..20);

MATHEMATICA

CoefficientList[Series[Cosh[3*ArcTanh[2*Sqrt[x]]], {x, 0, 20}], x] (* Vaclav Kotesovec, Apr 10 2017 *)

PROG

(PARI) x='x + O('x^30); Vec((1 + 12*x)/(1 - 4*x)^(3/2)) \\ Indranil Ghosh, Apr 10 2017

CROSSREFS

Cf. A000984, A010006, A085840, A285044, A285045, A285046.

Sequence in context: A229326 A008528 A020881 * A223241 A197339 A304763

Adjacent sequences:  A285040 A285041 A285042 * A285044 A285045 A285046

KEYWORD

nonn,easy

AUTHOR

Peter Bala, Apr 09 2017

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 September 24 09:10 EDT 2021. Contains 347630 sequences. (Running on oeis4.)