|
| |
|
|
A048801
|
|
E.g.f. satisfies A(x) = 1+xA(e^x-1).
|
|
1
| |
|
|
1, 1, 2, 9, 64, 665, 9366, 170618, 3885120, 107728587, 3563482900, 138299564425, 6211739264688, 319190842232028, 18581124650376484, 1215078306042445710, 88602560159713837728, 7157866087368900148345, 636974235270930297047526
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
PROG
| (PARI) a(n)=local(A, E); if(n<0, 0, A=1+O(x); E=exp(x+O(x^n))-1; for(m=1, n, A=1+x*subst(A, x, E+O(x^m))); n!*polcoeff(A, n)) - Michael Somos Mar 08 2004
|
|
|
CROSSREFS
| Cf. A003659.
Sequence in context: A000169 A112319 A038038 * A152915 A168383 A071300
Adjacent sequences: A048798 A048799 A048800 * A048802 A048803 A048804
|
|
|
KEYWORD
| nonn,eigen
|
|
|
AUTHOR
| Christian G. Bower (bowerc(AT)usa.net), Mar 15 1999.
|
|
|
EXTENSIONS
| Description corrected by Michael Somos
|
| |
|
|
