|
Search: id:A085022
|
|
|
| A085022 |
|
Integer floor of coefficients of exp(x*A(x)). |
|
+0
3
|
|
| 1, 1, 1, 2, 4, 8, 17, 37, 82, 185, 424, 983, 2301, 5431, 12913, 30900, 74361, 179855, 436974, 1065985, 2609993, 6411730, 15799090, 39039031, 96711591, 240150955, 597640140, 1490309462, 3723343793, 9318686066, 23360994967, 58654055246
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
a(n) = floor(A085023(n)/n!) where exp(x*A(x)) = sum(n>=0, A085023(n)*x^n/n!).
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<0, 0, A=1+O(x); for(m=1, n, A=Pol(A)+x^m*(floor(polcoeff(exp(x*A), m))+O(x)); ); polcoeff(A, n))}
|
|
CROSSREFS
|
Cf. A085023, A085294.
Sequence in context: A024557 A025241 A004148 this_sequence A003426 A087803 A036374
Adjacent sequences: A085019 A085020 A085021 this_sequence A085023 A085024 A085025
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Jun 18 2003
|
|
|
Search completed in 0.002 seconds
|
