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!)
A228997 Total sum of the 7th powers of lengths of ascending runs in all permutations of [n]. 3
0, 1, 130, 2706, 32226, 315684, 2961498, 28544040, 291590754, 3194874900, 37656861354, 477018980928, 6477756701010, 94006723773564, 1453236561824250, 23855684885059944, 414605141516228418, 7607828522859788580, 147012653519046471114, 2984603478905797978320 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..200

FORMULA

E.g.f.: (exp(x)*(42*x^5+210*x^4+280*x^3+126*x-126)+x+126)/(x-1)^2.

a(n) ~ n! * (532*exp(1)+127)*n. - Vaclav Kotesovec, Sep 12 2013

MAPLE

a:= proc(n) option remember; `if`(n<4, [0, 1, 130, 2706][n+1],

      ((16*n^3-38*n^2-16*n+278) *a(n-1)

      -(8*n^4-3*n^3-101*n^2+623*n-512) *a(n-2)

      +2*(n-2)*(8*n^3-32*n^2+134*n-95) *a(n-3)

      -(n-2)*(n-3)*(8*n^2-37*n+44) *a(n-4)) /(8*n^2-27*n+24))

    end:

seq(a(n), n=0..30);

MATHEMATICA

With[{nn=20}, CoefficientList[Series[(Exp[x](42x^5+210x^4+280x^3+126x-126)+x+126)/(x-1)^2, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 31 2021 *)

CROSSREFS

Column k=7 of A229001.

Sequence in context: A239094 A084641 A271758 * A168124 A224169 A223860

Adjacent sequences:  A228994 A228995 A228996 * A228998 A228999 A229000

KEYWORD

nonn

AUTHOR

Alois P. Heinz, Sep 10 2013

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 July 4 05:07 EDT 2022. Contains 355064 sequences. (Running on oeis4.)