login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A085022 Integer floor of coefficients of exp(x*A(x)). 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; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Vaclav Kotesovec, Table of n, a(n) for n = 0..350

FORMULA

a(n) = floor(A085023(n)/n!) where exp(x*A(x)) = sum(n>=0, A085023(n)*x^n/n!).

a(n) ~ c * d^n / n^(3/2), where d = 2.6325509689919889304486..., c = 0.99440959889640775375... . - Vaclav Kotesovec, Apr 27 2015

EXAMPLE

exp(x*(1 + x + floor(3/2!)*x^2 + floor(13/3!)*x^3 + floor(97/4!)*x^4 + ...)) = 1 + x + (3/2!)*x^2 + (13/3!)*x^3 + (97/4!)*x^4 + ...

1 + x + floor(3/2)*x^2 + floor(13/6)*x^3 + floor(97/24)*x^4 + ... = 1 + x + x^2 + 2*x^3 + 4*x^4 + ...

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 A203019 A004148 * A003426 A179476 A087803

Adjacent sequences:  A085019 A085020 A085021 * A085023 A085024 A085025

KEYWORD

nonn

AUTHOR

Paul D. Hanna, Jun 18 2003

EXTENSIONS

Example added by Vaclav Kotesovec, Apr 27 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified June 25 20:26 EDT 2017. Contains 288730 sequences.