|
| |
|
|
A123094
|
|
Sum of first n 12th powers.
|
|
1
| |
|
|
0, 1, 4097, 535538, 17312754, 261453379, 2438235715, 16279522916, 84998999652, 367428536133, 1367428536133, 4505856912854, 13421957361110, 36720042483591, 93413954858887, 223160292749512, 504635269460168, 1087257506689929
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| a(n) = n*A123095(n) - sum(i=0..n-1, A123095(i)) [From Bruno Berselli (berselli.bruno(AT)yahoo.it), Apr 27 2010]
|
|
|
LINKS
| B. Berselli, a description of the recursive method n*Ar(n)-sum[i=0...n-1]Ar(i) (Ar(m) is the m-th term of a sequence): website Matem@ticamente. [From Bruno Berselli (berselli.bruno(AT)yahoo.it), Apr 27 2010]
|
|
|
FORMULA
| a(n) = n * (n+1) * (2*n+1) * (105*n^10 +525*n^9 +525*n^8 -1050*n^7 -1190*n^6 +2310*n^5 +1420*n^4 -3285*n^3 -287*n^2 +2073*n -691)/2730. [From Bruno Berselli (berselli.bruno(AT)yahoo.it), Oct 03 2010]
|
|
|
MAPLE
| [seq(add(i^12, i=1..n), n=0..18)];
|
|
|
MATHEMATICA
| lst={}; s=0; Do[s=s+n^12; AppendTo[lst, s], {n, 10^2}]; lst..or..Table[Sum[k^12, {k, 1, n}], {n, 0, 10^2}] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 14 2008]
Accumulate[Range[0, 30]^12] (* From Harvey P. Dale, Apr 26 2011 *)
|
|
|
PROG
| (Sage) [bernoulli_polynomial(n, 13)/13 for n in xrange(1, 19)]# [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), May 17 2009]
|
|
|
CROSSREFS
| Sequence in context: A017687 A013960 A036090 * A031562 A023354 A043476
Adjacent sequences: A123091 A123092 A123093 * A123095 A123096 A123097
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Sep 27 2006
|
| |
|
|
