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 A003721 M4571 #29 Oct 02 2021 07:57:09 %S A003721 1,0,-8,112,-128,-109824,8141824,-353878016,-9666461696,5151942574080, %T A003721 -825073851170816,76429076694827008,2051308253366714368, %U A003721 -2361338488910424047616,171581865952588387581952 %N A003721 Expansion of e.g.f. tan(tanh(x)) (odd powers only). %D A003721 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A003721 Seiichi Manyama, <a href="/A003721/b003721.txt">Table of n, a(n) for n = 0..100</a> %F A003721 a(n) = Sum_{i=0..(n-1)} ( ( Sum_{j=1..2*i+1} j!*2^(2*i+1-j-1)*(-1)^(i+j+1)*Stirling2(2*i+1,j) ) * Sum_{k=2*i+1..2*n-1} binomial(k-1,2*i)*k!*(-1)^(1+k)*2^(2*n-k-1)*Stirling2(2*n-1,k) )/(2*i+1)!. - _Vladimir Kruchinin_, Jun 10 2011 %t A003721 With[{nn=30},Take[CoefficientList[Series[Tan[Tanh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 05 2011 *) %o A003721 (Maxima) %o A003721 a(n):=sum(((sum(j!*2^(2*i+1-j-1)*(-1)^(i+j+1)*stirling2(2*i+1,j),j,1,2*i+1))*sum(binomial(k-1,2*i)*k!*(-1)^(1+k)*2^(2*n-k-1)*stirling2(2*n-1,k),k,2*i+1,2*n-1))/(2*i+1)!,i,0,(n-1)); /* _Vladimir Kruchinin_, Jun 10 2011 */ %Y A003721 Cf. A003716, A003718. %K A003721 sign %O A003721 0,3 %A A003721 _R. H. Hardin_, _Simon Plouffe_