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 A191277 #21 Jun 30 2022 03:34:32 %S A191277 1,1,2,10,56,376,3152,30640,338816,4226176,58564352,892337920, %T A191277 14834994176,267186021376,5182147684352,107689460377600, %U A191277 2387077442011136,56219583797886976,1401949974947889152,36902741817196871680,1022494706646806429696 %N A191277 Expansion of e.g.f. 1/(1 - sinh(x)*cosh(x)). %H A191277 Seiichi Manyama, <a href="/A191277/b191277.txt">Table of n, a(n) for n = 0..427</a> %F A191277 a(n) = Sum_{k=1..n} Sum_{i=0..k} (-1)^i*(k-2*i)^n*binomial(k,i), n>0, a(0)=1. %F A191277 a(n) ~ n! /(sqrt(5)*(log(2+sqrt(5))/2)^(n+1)). - _Vaclav Kotesovec_, Jun 26 2013 %F A191277 a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/2)} 4^k * binomial(n,2*k+1) * a(n-2*k-1). - _Seiichi Manyama_, Jun 30 2022 %t A191277 CoefficientList[Series[1/(1-Sinh[x]*Cosh[x]), {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Jun 26 2013 *) %o A191277 (Maxima) a(n):=sum(sum((-1)^i*(k-2*i)^n*binomial(k,i),i,0,k),k,1,n); %o A191277 (PARI) my(x='x+O('x^30)); Vec(serlaplace(1/(1 - sinh(x)*cosh(x)))) \\ _Michel Marcus_, Jun 30 2022 %Y A191277 Cf. A006154, A009229. %K A191277 nonn %O A191277 0,3 %A A191277 _Vladimir Kruchinin_, May 29 2011