login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A204858 G.f.: Sum_{n>=0} n! * x^(n*(n+1)/2) / Product_{k=1..n} (1 - k*x^k). 5
1, 1, 1, 3, 3, 7, 13, 21, 33, 67, 115, 183, 333, 541, 937, 1635, 2643, 4327, 7573, 12069, 20025, 33427, 54259, 87375, 144669, 231541, 374809, 607443, 970539, 1545367, 2502205, 3947541, 6270057, 9997867, 15776083, 24832503, 39351309, 61552501, 96632689 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,4
LINKS
FORMULA
G.f.: 1/(1 - x/(1 - 2*x^2*(1-x)/(1 - 3*x^3*(1-2*x^2)/(1 - 4*x^4*(1-3*x^3)/(1 - 5*x^5*(1-4*x^4)/(1 - 6*x^6*(1-5*x^5)/(1 -...)))))), a continued fraction.
From Vaclav Kotesovec, Jun 18 2019: (Start)
a(n) ~ c * 3^(n/3), where
c = 8007.60951343849770902289074154120578227939552369... if mod(n,3)=0
c = 8007.30566699919825273673656299755925992856381905... if mod(n,3)=1
c = 8007.19663204881021378993302255541874790731157021... if mod(n,3)=2
(End)
EXAMPLE
G.f.: A(x) = 1 + x + x^2 + 3*x^3 + 3*x^4 + 7*x^5 + 13*x^6 + 21*x^7 +...
where A(x) = 1 + x/(1-x) + 2!*x^3/((1-x)*(1-2*x^2)) + 3!*x^6/((1-x)*(1-2*x^2)*(1-3*x^3)) + 4!*x^10/((1-x)*(1-2*x^2)*(1-3*x^3)*(1-4*x^4)) +...
MATHEMATICA
Table[SeriesCoefficient[Sum[n!*x^Binomial[n + 1, 2]/Product[(1 - k*x^k), {k, 1, n}], {n, 0, 100}], {x, 0, n}], {n, 0, 50}] (* G. C. Greubel, Dec 19 2017 *)
PROG
(PARI) {a(n)=polcoeff(1+sum(m=1, n, m!*x^(m*(m+1)/2)/prod(k=1, m, 1-k*x^k+x*O(x^n))), n)}
CROSSREFS
Sequence in context: A187873 A306665 A065876 * A095008 A214825 A230017
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 20 2012
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 14 14:00 EDT 2024. Contains 371665 sequences. (Running on oeis4.)