|
Search: id:A048801
|
|
|
| A048801 |
|
E.g.f. satisfies A(x) = 1+xA(e^x-1). |
|
+0
2
|
|
| 1, 1, 2, 9, 64, 665, 9366, 170618, 3885120, 107728587, 3563482900, 138299564425, 6211739264688, 319190842232028, 18581124650376484, 1215078306042445710, 88602560159713837728, 7157866087368900148345, 636974235270930297047526
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
PROGRAM
|
(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.
Adjacent sequences: A048798 A048799 A048800 this_sequence A048802 A048803 A048804
Sequence in context: A055860 A112319 A038038 this_sequence A071300 A062395 A099975
|
|
KEYWORD
|
nonn,eigen
|
|
AUTHOR
|
Christian G. Bower (bowerc(AT)usa.net), Mar 15 1999.
|
|
EXTENSIONS
|
Description corrected by Michael Somos
|
|
|
Search completed in 0.002 seconds
|
