A254645 -id:A254645 - cp's OEIS frontend

A254647 Fourth partial sums of eighth powers (A001016).

1, 260, 7595, 94360, 723534, 4037712, 17944290, 67127880, 219319815, 642251428, 1718012933, 4258676240, 9892043980, 21721707840, 45414150132, 90930820464, 175208925885, 326205634020, 588861675535, 1033717781096, 1769137540730, 2958360418000, 4842936861750, 7774492635000

Offset: 1

Luciano Ancora, Feb 05 2015

			The eighth powers:   1, 256, 6561, 65536, 390625, ... (A001016)
First partial sums:  1, 257, 6818, 72354, 462979, ... (A000542)
Second partial sums: 1, 258, 7076, 79430, 542409, ... (A253636)
Third partial sums:  1, 259, 7335, 86765, 629174, ... (A254642)
Fourth partial sums: 1, 260, 7595, 94360, 723534, ... (this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers
Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).

Cf. A000542, A001016, A253636, A254642, A254644, A254645, A254646.

List([1..30], n-> Binomial(n+4,5)*(n+2)*((n+2)^2-3)*(2*(n+2)^4 -28*(n+2)^2 +101)/198); # G. C. Greubel, Aug 28 2019

[Binomial(n+4,5)*(n+2)*((n+2)^2-3)*(2*(n+2)^4 -28*(n+2)^2 +101)/198: n in [1..30]]; // G. C. Greubel, Aug 28 2019

seq(binomial(n+4,5)*(n+2)*((n+2)^2-3)*(2*(n+2)^4 -28*(n+2)^2 +101)/198, n=1..30); # G. C. Greubel, Aug 28 2019

Table[n(1+n)(2+n)^2(3+n)(4+n)(1+4n+n^2)(21 -48n +20n^2 +16n^3 +2n^4 )/23760, {n,20}] (* or *)
Accumulate[Accumulate[Accumulate[Accumulate[Range[20]^8]]]] (* or *)
CoefficientList[Series[(1 +247x +4293x^2 +15619x^3 +15619x^4 +4293x^5 + 247x^6 +x^7)/(1-x)^13, {x,0,19}], x]

a(n)=n*(1+n)*(2+n)^2*(3+n)*(4+n)*(1+4*n+n^2)*(21-48*n+20*n^2 +16*n^3+2*n^4)/23760 \\ Charles R Greathouse IV, Sep 08 2015

vector(30, n, m=n+2; binomial(m+2,5)*m*(m^2-3)*(2*m^4-28*m^2 +101)/198)

[binomial(n+4,5)*(n+2)*((n+2)^2-3)*(2*(n+2)^4 -28*(n+2)^2 +101)/198 for n in (1..30)] # G. C. Greubel, Aug 28 2019

G.f.: x*(1 +247*x +4293*x^2 +15619*x^3 +15619*x^4 +4293*x^5 +247*x^6 +x^7)/(1-x)^13.
a(n) = n*(1+n)*(2+n)^2*(3+n)*(4+n)*(1 +4*n +n^2)*(21 -48*n +20*n^2 + 16*n^3 +2*n^4)/23760.
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4) + n^8.

A101095 Fourth difference of fifth powers (A000584).

Original entry on oeis.org

1, 28, 121, 240, 360, 480, 600, 720, 840, 960, 1080, 1200, 1320, 1440, 1560, 1680, 1800, 1920, 2040, 2160, 2280, 2400, 2520, 2640, 2760, 2880, 3000, 3120, 3240, 3360, 3480, 3600, 3720, 3840, 3960, 4080, 4200, 4320, 4440, 4560, 4680, 4800, 4920, 5040, 5160, 5280

Offset: 1

Cecilia Rossiter, Dec 15 2004

Original Name: Shells (nexus numbers) of shells of shells of shells of the power of 5.

The (Worpitzky/Euler/Pascal Cube) "MagicNKZ" algorithm is: MagicNKZ(n,k,z) = Sum_{j=0..k+1} (-1)^j*binomial(n + 1 - z, j)*(k - j + 1)^n, with k>=0, n>=1, z>=0. MagicNKZ is used to generate the n-th accumulation sequence of the z-th row of the Euler Triangle (A008292). For example, MagicNKZ(3,k,0) is the 3rd row of the Euler Triangle (followed by zeros) and MagicNKZ(10,k,1) is the partial sums of the 10th row of the Euler Triangle. This sequence is MagicNKZ(5,k-1,2).

Danny Rorabaugh, Table of n, a(n) for n = 1..10000
D. J. Pengelley, The bridge between the continuous and the discrete via original sources in Study the Masters: The Abel-Fauvel Conference [pdf], Kristiansand, 2002, (ed. Otto Bekken et al), National Center for Mathematics Education, University of Gothenburg, Sweden, in press.
Cecilia Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Archive Machine link]
Cecilia Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Cached copy, May 15 2013]
Eric Weisstein, Link to section of MathWorld: Worpitzky's Identity of 1883
Eric Weisstein, Link to section of MathWorld: Eulerian Number
Eric Weisstein, Link to section of MathWorld: Nexus number
Eric Weisstein, Link to section of MathWorld: Finite Differences
Index entries for linear recurrences with constant coefficients, signature (2,-1).

Fourth differences of A000584, third differences of A022521, second differences of A101098, and first differences of A101096.
For other sequences based upon MagicNKZ(n,k,z):
...... |  n = 1  |  n = 2  |  n = 3  |  n = 4  |  n = 5  |  n = 6  |  n = 7  |  n = 8
--------------------------------------------------------------------------------------
z =  0 | A000007 | A019590 | .......  MagicNKZ(n,k,0) = T(n,k+1) from A008292  .......
z =  1 | A000012 | A040000 | A101101 | A101104 | A101100 | ....... | ....... | .......
z =  2 | A000027 | A005408 | A008458 | A101103 | thisSeq | ....... | ....... | .......
z =  3 | A000217 | A000290 | A003215 | A005914 | A101096 | ....... | ....... | .......
z =  4 | A000292 | A000330 | A000578 | A005917 | A101098 | ....... | ....... | .......
z =  5 | A000332 | A002415 | A000537 | A000583 | A022521 | ....... | A255181 | .......
z =  6 | A000389 | A005585 | A024166 | A000538 | A000584 | A022522 | A255177 | A255182
z =  7 | A000579 | A040977 | A101094 | A101089 | A000539 | A001014 | A022523 | A255178
z =  8 | A000580 | A050486 | A101097 | A101090 | A101092 | A000540 | A001015 | A022524
z =  9 | A000581 | A053347 | A101102 | A101091 | A101099 | A101093 | A000541 | A001016
z = 10 | A000582 | A054333 | A254469 | A254681 | A254644 | A254640 | A250212 | A000542
z = 11 | A001287 | A054334 | A254869 | A254470 | A254682 | A254645 | A254641 | A253636
z = 12 | A001288 | A057788 | ....... | A254870 | A254471 | A254683 | A254646 | A254642
z = 13 | A010965 | ....... | ....... | ....... | A254871 | A254472 | A254684 | A254647
z = 14 | A010966 | ....... | ....... | ....... | ....... | A254872 | ....... | .......
--------------------------------------------------------------------------------------
Cf. A047969.

I:=[1,28,121,240,360]; [n le 5 select I[n] else 2*Self(n-1)-Self(n-2): n in [1..50]]; // Vincenzo Librandi, May 07 2015

MagicNKZ=Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 5, 5}, {z, 2, 2}, {k, 0, 34}]
CoefficientList[Series[(1 + 26 x + 66 x^2 + 26 x^3 + x^4)/(1 - x)^2, {x, 0, 50}], x] (* Vincenzo Librandi, May 07 2015 *)
Join[{1,28,121,240},Differences[Range[50]^5,4]] (* or *) LinearRecurrence[{2,-1},{1,28,121,240,360},50] (* Harvey P. Dale, Jun 11 2016 *)

a(n)=if(n>3, 120*n-240, 33*n^2-72*n+40) \\ Charles R Greathouse IV, Oct 11 2015

[1,28,121]+[120*(k-2) for k in range(4,36)] # Danny Rorabaugh, Apr 23 2015

a(k+1) = Sum_{j=0..k+1} (-1)^j*binomial(n + 1 - z, j)*(k - j + 1)^n; n = 5, z = 2.
For k>3, a(k) = Sum_{j=0..4} (-1)^j*binomial(4, j)*(k - j)^5 = 120*(k - 2).
a(n) = 2*a(n-1) - a(n-2), n>5. G.f.: x*(1+26*x+66*x^2+26*x^3+x^4) / (1-x)^2. - Colin Barker, Mar 01 2012

MagicNKZ material edited, Crossrefs table added, SeriesAtLevelR material removed by Danny Rorabaugh, Apr 23 2015

Name changed and keyword 'uned' removed by Danny Rorabaugh, May 06 2015

A254683 Fifth partial sums of sixth powers (A001014).

Original entry on oeis.org

1, 69, 1064, 8736, 49350, 216342, 787968, 2489448, 7024407, 18074875, 43072848, 96186272, 203145852, 408774588, 788378400, 1464523344, 2631173181, 4587701601, 7785938104, 12894168000, 20882898530, 33138238770

Offset: 1

Luciano Ancora, Feb 12 2015

			First differences:   1, 63,  665, 3367, 11529, ...  (A022522)
--------------------------------------------------------------------------
The sixth powers:    1, 64,  729, 4096, 15625, ...  (A001014)
--------------------------------------------------------------------------
First partial sums:  1, 65,  794, 4890, 20515, ...  (A000540)
Second partial sums: 1, 66,  860, 5750, 26265, ...  (A101093)
Third partial sums:  1, 67,  927, 6677, 32942, ...  (A254640)
Fourth partial sums: 1, 68,  995, 7672, 40614, ...  (A254645)
Fifth partial sums:  1, 69, 1064, 8736, 49350, ...  (this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers
Index entries for linear recurrences with constant coefficients, signature (12,-66,220,-495,792,-924,792,-495,220,-66,12,-1).

Cf. A000540, A001014, A022522, A101093, A254640, A254645, A254681, A254682, A254684.

Table[n (1 + n) (2 + n) (3 + n) (4 + n) (5 + n) (5 + 2*n) (- 3 + 5*n + n^2) (4 + 15 n + 3 n^2)/332640, {n,22}] (* or *)
CoefficientList[Series[(1 + 57 x + 302 x^2 + 302 x^3 + 57 x^4 + x^5)/(- 1 + x)^12, {x,0,21}], x]

G.f.: (x + 57*x^2 + 302*x^3 + 302*x^4 + 57*x^5 + x^6)/(- 1 + x)^12.
a(n) = n*(1 + n)*(2 + n)*(3 + n)*(4 + n)*(5 + n)*(5 + 2*n)*(- 3 + 5*n + n^2)*(4 + 15*n + 3*n^2)/332640.
a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5) + n^6.

A254472 Sixth partial sums of sixth powers (A001014).

Original entry on oeis.org

1, 70, 1134, 9870, 59220, 275562, 1063530, 3552978, 10577385, 28652260, 71725108, 167911380, 371057232, 779831820, 1568210220, 3032733564, 5663906745, 10251608346, 18037546450, 30931714450, 51814612980, 84952851750, 136562787270, 215565263550, 334584493425

Offset: 1

Luciano Ancora, Feb 15 2015

			First differences:   1, 63,  665, 3367, 11529, ... (A022522)
--------------------------------------------------------------------------
The sixth powers:    1, 64,  729, 4096, 15625, ... (A001014)
--------------------------------------------------------------------------
First partial sums:  1, 65,  794, 4890, 20515, ... (A000540)
Second partial sums: 1, 66,  860, 5750, 26265, ... (A101093)
Third partial sums:  1, 67,  927, 6677, 32942, ... (A254640)
Fourth partial sums: 1, 68,  995, 7672, 40614, ... (A254645)
Fifth partial sums:  1, 69, 1064, 8736, 49350, ... (A254683)
Sixth partial sums:  1, 70, 1134, 9870, 59220, ... (this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials.
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers.
Index entries for linear recurrences with constant coefficients, signature (13,-78,286,-715,1287,-1716,1716,-1287,715,-286,78,-13,1).

Cf. A000540, A001014, A022522, A101093, A254469, A254470, A254471, A254640, A254645, A254683.

[n*(1+n)*(2+n)*(3+n)^2*(4+n)*(5+n)*(6+n)*(-3+5*n+n^2)* (3+7*n+n^2)/665280: n in [1..30]]; // Vincenzo Librandi, Feb 15 2015

Table[n (1 + n) (2 + n) (3 + n)^2 (4 + n) (5 + n) (6 + n) (- 3 + 5 n + n^2) (3 + 7 n + n^2)/665280, {n, 22}] (* or *) CoefficientList[Series[(- 1 - 57 x - 302 x^2 - 302 x^3 - 57 x^4 - x^5)/(- 1 + x)^13, {x, 0, 28}], x]
Nest[Accumulate,Range[30]^6,6] (* Harvey P. Dale, Oct 02 2015 *)

vector(50,n,n*(1 + n)*(2 + n)*(3 + n)^2*(4 + n)*(5 + n)*(6 + n)*(-3 + 5*n + n^2)*(3 + 7*n + n^2)/665280) \\ Derek Orr, Feb 19 2015

G.f.: (-x - 57*x^2 - 302*x^3 - 302*x^4 - 57*x^5 - x^6)/(- 1 + x)^13.
a(n) = n*(1 + n)*(2 + n)*(3 + n)^2*(4 + n)*(5 + n)*(6 + n)*(-3 + 5*n + n^2)*(3 + 7*n + n^2)/665280.
a(n) = 6*a(n-1) - 15*a(n-2) + 20*a(n-3) - 15*a(n-4) + 6*a(n-5) - a(n-6) + n^6.
Sum_{n>=1} 1/a(n) = 25622179/76545 - 3080*Pi^2/81 + 149600*Pi*tan(sqrt(37)*Pi/2)/(243*sqrt(37)). - Amiram Eldar, Jan 27 2022

A254646 Fourth partial sums of seventh powers (A001015).

Original entry on oeis.org

1, 132, 2709, 26432, 168126, 804552, 3136014, 10459968, 30856839, 82407052, 202678203, 465069696, 1005729452, 2066218896, 4058958828, 7664805504, 13974953853, 24692818836, 42415687153, 71020845504, 116186669130, 186085891160, 292296070170, 450981236160, 684408934755

Offset: 1

Luciano Ancora, Feb 05 2015

			First differences:   1, 127, 2059, 14197,  61741, ...  (A022523)
----------------------------------------------------------------------
The seventh powers:  1, 128, 2187, 16384,  78125, ...  (A001015)
----------------------------------------------------------------------
First partial sums:  1, 129, 2316, 18700,  96825, ...  (A000541)
Second partial sums: 1, 130, 2446, 21146, 117971, ...  (A250212)
Third partial sums:  1, 131, 2577, 23723, 141694, ...  (A254641)
Fourth partial sums: 1, 132, 2709, 26432, 168126, ...  (this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers
Index entries for linear recurrences with constant coefficients, signature (12,-66,220,-495,792,-924,792,-495,220,-66,12,-1).

Cf. A000541, A001015, A022523, A250212, A254641, A254645.

List([1..30], n-> Binomial(n+4,5)*(3*(n+2)^6 -40*(n+2)^4 +151*(n+2)^2 -108)/198); # G. C. Greubel, Aug 28 2019

[Binomial(n+4,5)*(3*(n+2)^6 -40*(n+2)^4 +151*(n+2)^2 -108)/198: n in [1..30]]; // G. C. Greubel, Aug 28 2019

seq(binomial(n+4,5)*(3*(n+2)^6 -40*(n+2)^4 +151*(n+2)^2 -108)/198, n=1..30); # G. C. Greubel, Aug 28 2019

Table[n (1 + n) (2 + n) (3 + n) (4 + n) (48 - 100 n - 89 n^2 + 160 n^3 + 140 n^4 + 36 n^5 + 3 n^6)/23760, {n, 20}] (* or *)
Accumulate[Accumulate[Accumulate[Accumulate[Range[20]^7]]]] (* or *)
CoefficientList[Series[(1 + 120 x + 1191 x^2 + 2416 x^3 + 1191 x^4 + 120 x^5 + x^6)/(- 1 + x)^12, {x, 0, 19}], x]

a(n)=n*(1+n)*(2+n)*(3+n)*(4+n)*(48-100*n-89*n^2+160*n^3+140*n^4 +36*n^5+3*n^6)/23760 \\ Charles R Greathouse IV, Oct 07 2015

[binomial(n+4,5)*(3*(n+2)^6 -40*(n+2)^4 +151*(n+2)^2 -108)/198 for n in (1..30)] # G. C. Greubel, Aug 28 2019

G.f.: x*(1 +120*x +1191*x^2 +2416*x^3 +1191*x^4 +120*x^5 +x^6)/(1-x)^12.
a(n) = n*(1 + n)*(2 + n)*(3 + n)*(4 + n)*(48 - 100*n - 89*n^2 + 160*n^3 + 140*n^4 + 36*n^5 + 3*n^6)/23760.
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4) + n^7.

A254872 Seventh partial sums of sixth powers (A001014).

Original entry on oeis.org

1, 71, 1205, 11075, 70295, 345857, 1409387, 4962365, 15539750, 44192010, 115917118, 283828498, 654885730, 1434717550, 3002927770, 6035661334, 11699568079, 21951176425, 39988722875, 70920437325, 122735050305

Offset: 1

Luciano Ancora, Feb 17 2015

			First differences:    1, 63,  665,  3367, 11529, ... (A022522)
--------------------------------------------------------------------
The sixth powers:     1, 64,  729,  4096, 15625, ... (A001014)
--------------------------------------------------------------------
First partial sums:   1, 65,  794,  4890, 20515, ... (A000540)
Second partial sums:  1, 66,  860,  5750, 26265, ... (A101093)
Third partial sums:   1, 67,  927,  6677, 32942, ... (A254640)
Fourth partial sums:  1, 68,  995,  7672, 40614, ... (A254645)
Fifth partial sums:   1, 69, 1064,  8736, 49350, ... (A254683)
Sixth partial sums:   1, 70, 1134,  9870, 59220, ... (A254472)
Seventh partial sums: 1, 71, 1205, 11075, 70295, ... (this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers
Index entries for linear recurrences with constant coefficients, signature (14,-91,364,-1001,2002,-3003,3432,-3003,2002,-1001,364,-91,14,-1).

Cf. A000540, A001014, A022522, A101093, A254472, A254640, A254645, A254683, A254869, A254870, A254871.

Table[(n (1 + n) (2 + n) (3 + n) (4 + n) (5 + n) (6 + n) (7 + n) (7 + 2 n) (- 49 + 147 n^2 + 42 n^3 + 3 n^4))/51891840, {n, 21}] (* or *)
CoefficientList[Series[(1 + 57 x + 302 x^2 + 302 x^3 + 57 x^4 + x^5)/(- 1 + x)^14, {x, 0, 20}], x]

G.f.: (x + 57*x^2 + 302*x^3 + 302*x^4 + 57*x^5 + x^6)/(- 1 + x)^14.
a(n) = (n*(1 + n)*(2 + n)*(3 + n)*(4 + n)*(5 + n)*(6 + n)*(7 + n)*(7 + 2*n)*(- 49 + 147*n^2 + 42*n^3 + 3*n^4))/51891840.
a(n) = 7*a(n-1) - 21*a(n-2) + 35*a(n-3) - 35*a(n-4) + 21*a(n-5) - 7*a(n-6) + a(n-7) + n^6.

cp's OEIS Frontend

A254647 Fourth partial sums of eighth powers (A001016).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

PARI

Sage

Formula

A101095 Fourth difference of fifth powers (A000584).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

Extensions

A254683 Fifth partial sums of sixth powers (A001014).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A254472 Sixth partial sums of sixth powers (A001014).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A254646 Fourth partial sums of seventh powers (A001015).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

A254872 Seventh partial sums of sixth powers (A001014).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula