login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A173175
a(n) = sinh^2( 2n*arcsinh(sqrt n)).
3
0, 8, 2400, 1825200, 2687489280, 6503780163000, 23436548406180000, 117725514040791821024, 786292024016459316676608, 6739465778247681589030301160, 72110357818535214970387726284000, 942092946853627620313318842336862608, 14758709413836719039368938494112056160000
OFFSET
0,2
FORMULA
From Seiichi Manyama, Jan 02 2019: (Start)
a(n) = A322699(n,2*n).
a(n) = (T_{2*n}(2*n+1) - 1)/2 where T_{n}(x) is a Chebyshev polynomial of the first kind.
a(n) = 1/2 * (-1 + Sum_{k=0..2*n} binomial(4*n,2*k)*(n+1)^(2*n-k)*n^k). (End)
a(n) ~ exp(1) * 2^(4*n - 2) * n^(2*n). - Vaclav Kotesovec, Jan 02 2019
MAPLE
A173175 := proc(n) sinh(2*n*arcsinh(sqrt(n))) ; %^2 ; expand(%); simplify(%) ; end proc: # R. J. Mathar, Feb 26 2011
MATHEMATICA
Table[Round[N[Sinh[(2 n) ArcSinh[Sqrt[n]]]^2, 100]], {n, 0, 20}]
PROG
(PARI) {a(n) = (polchebyshev(2*n, 1, 2*n+1)-1)/2} \\ Seiichi Manyama, Jan 02 2019
(PARI) {a(n) = 1/2*(-1+sum(k=0, 2*n, binomial(4*n, 2*k)*(n+1)^(2*n-k)*n^k))} \\ Seiichi Manyama, Jan 02 2019
KEYWORD
nonn
AUTHOR
Artur Jasinski, Feb 11 2010
EXTENSIONS
a(11)-a(12) from Seiichi Manyama, Jan 02 2019
STATUS
approved