This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A173128 #29 Dec 29 2018 13:03:10 %S A173128 1,3,161,27379,9478657,5517751251,4841332221601,5964153172084899, %T A173128 9814664424981012481,20791777842234580902499, %U A173128 55106605639755476546020001,178627672869645203363556318483,695165908550906808156689590141441 %N A173128 a(n) = cosh(2*n*arcsinh(n)). %H A173128 Robert Israel, <a href="/A173128/b173128.txt">Table of n, a(n) for n = 0..192</a> %H A173128 Wikipedia, <a href="https://en.wikipedia.org/wiki/Chebyshev_polynomials">Chebyshev polynomials</a>. %H A173128 <a href="/index/Ch#Cheby">Index entries for sequences related to Chebyshev polynomials.</a> %F A173128 a(n) = (1/2)*((n + sqrt(n^2 + 1))^(2*n) + (n - sqrt(n^2 + 1))^(2*n)). - _Artur Jasinski_, Feb 14 2010, corrected by _Vaclav Kotesovec_, Apr 05 2016 %F A173128 a(n) = Sum_{k=0..n} binomial(2*n,2*k)*(n^2+1)^(n-k)*n^(2*k). - _Seiichi Manyama_, Dec 27 2018 %F A173128 a(n) = T_{n}(2*n^2+1) where T_{n}(x) is a Chebyshev polynomial of the first kind. - _Seiichi Manyama_, Dec 29 2018 %p A173128 seq(expand( (1/2)*((n + sqrt(n^2 + 1))^(2*n) + (n - sqrt(n^2 + 1))^(2*n))), n=0..30); # _Robert Israel_, Apr 05 2016 %t A173128 Round[Table[Cosh[2 n ArcSinh[n]], {n, 0, 20}]] (* _Artur Jasinski_ *) %t A173128 Round[Table[1/2 (x - Sqrt[1 + x^2])^(2 x) + 1/2 (x + Sqrt[1 + x^2])^(2 x), {x, 0, 20}]] (* _Artur Jasinski_, Feb 14 2010 *) %o A173128 (PARI) {a(n) = sum(k=0, n, binomial(2*n, 2*k)*(n^2+1)^(n-k)*n^(2*k))} \\ _Seiichi Manyama_, Dec 27 2018 %o A173128 (PARI) {a(n) = polchebyshev(n, 1, 2*n^2+1)} \\ _Seiichi Manyama_, Dec 29 2018 %Y A173128 Cf. A058331, A001079, A037270, A071253, A108741, A132592, A146311, A146312, A146313, A173115, A173116, A173121, A173127, A173129, A173174. %K A173128 nonn %O A173128 0,2 %A A173128 _Artur Jasinski_, Feb 10 2010