|
| |
|
|
A085022
|
|
Integer floor of coefficients of exp(x*A(x)).
|
|
2
|
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,4
|
|
|
LINKS
|
Table of n, a(n) for n=0..31.
|
|
|
FORMULA
|
a(n) = floor(A085023(n)/n!) where exp(x*A(x)) = sum(n>=0, A085023(n)*x^n/n!).
|
|
|
PROG
|
(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: A025241 A004148 A203019 * A003426 A179476 A087803
Adjacent sequences: A085019 A085020 A085021 * A085023 A085024 A085025
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Paul D. Hanna, Jun 18 2003
|
|
|
STATUS
|
approved
|
| |
|
|
