login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A186859 E.g.f. A(x)=exp(x^6+3*x^5+4*x^4+3*x^3+2*x^2+x). 1
1, 1, 5, 31, 241, 2021, 19741, 224155, 2816801, 38127241, 557512021, 8805585911, 148896471505, 2668912291501, 50505733789421, 1007422798667251, 21118304040298561, 463416656527980305, 10612758078821689381, 253157568544420465231, 6279192326923499850161 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..470

Kruchinin Vladimir Victorovich, Composition of ordinary generating functions, arXiv:1009.2565 [math.CO], 2010.

FORMULA

a(n) = n!*Sum(m=1..n, Sum(k=m..n, binomial(k,n-k)*Sum(j=0..m, binomial(m,j)*binomial(j,k-3*m+2*j)))/m!).

From Benedict W. J. Irwin, Jun 02 2016: (Start)

Let y(0)=1, y(1)=1, y(2)=5/2, y(3)=31/6, y(4)=241/24, y(5)=2021/120,

Let -6*y(n)-15*y(n+1)-16*y(n+2)-9*y(n+3)-4*y(n+4)-y(n+5)+(n+6)y(n+6)=0,

a(n) = n!y(n).

(End)

EXAMPLE

G.f. = 1 + x + 5*x^2 + 31*x^3 + 241*x^4 + 2021*x^5 + 19741*x^6 + 224155*x^7 + ...

MATHEMATICA

With[{nn=20}, CoefficientList[Series[E^(x^6+3x^5+4x^4+3x^3+2x^2+x), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 26 2014 *)

PROG

(PARI) {a(n) = if( n<0, 0, n! * polcoeff( exp(x^6 + 3*x^5 + 4*x^4 + 3*x^3 + 2*x^2 + x + x * O(x^n)), n))}; /* Michael Somos, Jun 04 2016 */

(MAGMA) m:=25; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(x^6+3*x^5+4*x^4+3*x^3+2*x^2+x))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Aug 14 2018

CROSSREFS

Sequence in context: A211179 A177797 A293717 * A331335 A082579 A294214

Adjacent sequences:  A186856 A186857 A186858 * A186860 A186861 A186862

KEYWORD

nonn

AUTHOR

Vladimir Kruchinin, Feb 28 2011

EXTENSIONS

More terms from Harvey P. Dale, Jan 26 2014

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 25 14:49 EDT 2021. Contains 346290 sequences. (Running on oeis4.)