A075669 Sum of next n 8th powers.

1, 6817, 2135777, 165588738, 5498750979, 102697107715, 1264908663011, 11373936899396, 79985007371877, 461856872635333, 2269365182729029, 9747136491367430, 37362375267437415, 129917413702762791

Offset

1,2

Links

Table of n, a(n) for n=1..14.

Index entries for linear recurrences with constant coefficients, signature (18,-153,816,-3060,8568,-18564,31824,-43758,48620,-43758,31824,-18564,8568,-3060,816,-153,18,-1).

Formula

a(1)=1; a(n)=sum(i^n, {i, n(n-1)/2+1, n(n-1)/2+1+n}).

a(n) = (45n^17 + 780n^15 + 3990n^13 + 6900n^11 + 1205n^9 - 3240n^7 + 1584n^5 + 640n^3 - 384n)/11520.

G.f.: x*(x^16 +6799*x^15 +2013224*x^14 +128186937*x^13 +2839367964*x^12 +27332724427*x^11 +129026301848*x^10 +319786366637*x^9 +431174080326*x^8 +319786366637*x^7 +129026301848*x^6 +27332724427*x^5 +2839367964*x^4 +128186937*x^3 +2013224*x^2 +6799*x +1)/(x -1)^18. [Colin Barker, Sep 06 2012]

Example

s=8; a(1) = 1^s = 1; a(2) = 2^8 + 3^8 = 6817; a(3) = 4^8 + 5^8 + 6^8 = 2135777, a(4) = 7^ + 8^8 + 9^8 + 10^8 = 165588738.

Mathematica

i1 := n(n-1)/2+1; i2 := n(n-1)/2+n; s=8; Table[Sum[i^s, {i, i1, i2}], {n, 20}]

Crossrefs

Cf. A072474 (s=2), A075664 - A075670 (s=3-10), A075671 (s=n).

Sequence in context: A345592 A345850 A132215 * A345602 A345861 A215992

Adjacent sequences: A075666 A075667 A075668 * A075670 A075671 A075672

Keyword

nonn,easy

Author

Zak Seidov, Sep 24 2002

Extensions

Formula from Charles R Greathouse IV, Sep 17 2009

Status

approved