|
| |
|
|
A003718
|
|
E.g.f. tan(tan(x)), zeros omitted.
(Formerly M3694)
|
|
3
| |
|
|
1, 4, 72, 2896, 203904, 22112000, 3412366336, 709998153728, 191483931951104, 64956739430973440, 27065724289967718400, 13588059904833174896640, 8089418253144660155301888, 5634743143901240164716904448, 4539998748622480932947483426816
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
REFERENCES
| N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=0..50
|
|
|
MATHEMATICA
| Rest@ Union[ Range[0, 29]! CoefficientList[ Series[ Tan@ Tan@ x, {x, 0, 29}], x]] (* Robert G. Wilson v, May 7 2011 *)
|
|
|
PROG
| (Maxima)
a(n):=b(2*n+1);
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); [From Vladimir Kruchinin kru(AT)ie.tusur.ru, Apr 23 2011]
|
|
|
CROSSREFS
| Sequence in context: A176901 A186415 A203264 * A012947 A203535 A013066
Adjacent sequences: A003715 A003716 A003717 * A003719 A003720 A003721
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| R. H. Hardin (rhhardin(AT)att.net)
|
|
|
EXTENSIONS
| Extended and formatted Mar 15 1997 by Olivier Gerard.
Corrected name, Joerg Arndt, Apr 23 2011.
|
| |
|
|
