%I M3694 #35 Jan 27 2018 18:20:11
%S 1,4,72,2896,203904,22112000,3412366336,709998153728,191483931951104,
%T 64956739430973440,27065724289967718400,13588059904833174896640,
%U 8089418253144660155301888,5634743143901240164716904448,4539998748622480932947483426816
%N E.g.f. tan(tan(x)), zeros omitted.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A003718/b003718.txt">Table of n, a(n) for n = 0..50</a>
%F a(n) ~ 8 * (2*n+1)! / ((4+Pi^2) * (arctan(Pi/2))^(2*n+2)). - _Vaclav Kotesovec_, Feb 16 2015
%t Rest@ Union[ Range[0, 29]! CoefficientList[ Series[ Tan@ Tan@ x, {x, 0, 29}], x]] (* _Robert G. Wilson v_, May 07 2011 *)
%o (Maxima)
%o a(n):=b(2*n+1);
%o b(n):=sum((((-1)^(k-1)+1)*(sum(j!*2^(k-j-1)*(-1)^((k+1)/2+j)* stirling2(k,j),j,1,k))*((-1)^(n-k)+1)*sum(binomial(j-1,k-1)*j!*2^(n-j-1)*(-1)^((n+k)/2+j)*stirling2(n,j),j,k,n))/k!,k,1,n); /* _Vladimir Kruchinin_, Apr 23 2011 */
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and formatted by _Olivier GĂ©rard_, Mar 15 1997
%E Name corrected by _Joerg Arndt_, Apr 23 2011