A103717 -id:A103717 - cp's OEIS frontend

A103716 Numerators of sum_{k=1..n} 1/k^10 =: Zeta(10,n).

1, 1025, 60526249, 61978938025, 605263128567754849, 605263138567754849, 170971856382109814342232401, 175075181098169912564190119249, 10338014371627802833957102351534201, 413520574906423083987893722912609

Offset: 1

Wolfdieter Lang, Feb 15 2005

a(n) gives the partial sums, Zeta(10,n), of Euler's Zeta(10). Zeta(k,n) is also called H(k,n) because for k=1 these are the harmonic numbers H(n) = A001008/A002805.

For the denominators see A103717 and for the rationals Zeta(10,n) see the W. Lang link under A103345.

For k=1..9 see: A001008/A002805, A007406/A007407, A007408/A007409, A007410/A007480, A099828/A069052, A103345/A103346, A103347/A103348, A103349/A103350, A103351/A103352.

s=0;lst={};Do[s+=n^1/n^11;AppendTo[lst,Numerator[s]],{n,3*4!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 24 2009 *)
Table[ HarmonicNumber[n, 10] // Numerator, {n, 1, 10}] (* Jean-François Alcover, Dec 04 2013 *)

a(n) = numerator(sum_{k=1..n} 1/k^10).

G.f. for rationals Zeta(10, n): polylogarithm(10, x)/(1-x).

A322266 Square array A(n,k), n >= 1, k >= 0, read by antidiagonals: A(n,k) = denominator of Sum_{j=1..n} 1/j^k.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 4, 6, 1, 1, 8, 36, 12, 1, 1, 16, 216, 144, 60, 1, 1, 32, 1296, 1728, 3600, 20, 1, 1, 64, 7776, 20736, 216000, 3600, 140, 1, 1, 128, 46656, 248832, 12960000, 24000, 176400, 280, 1, 1, 256, 279936, 2985984, 777600000, 12960000, 8232000, 705600, 2520, 1

Offset: 1

Ilya Gutkovskiy, Dec 01 2018

			Square array begins:
  1,       1,          1,              1,                  1,  ...
  2,     3/2,        5/4,            9/8,              17/16,  ...
  3,    11/6,      49/36,        251/216,          1393/1296,  ...
  4,   25/12,    205/144,      2035/1728,        22369/20736,  ...
  5,  137/60,  5269/3600,  256103/216000,  14001361/12960000,  ...

Eric Weisstein's World of Mathematics, Harmonic Number

Columns k=0..10 give A000012, A002805, A007407, A007409, A007480, A069052, A103346, A103348, A103350, A103352, A103717.
Numerators are in A322265.
Cf. A103438, A276487.

Table[Function[k, Denominator[Sum[1/j^k, {j, 1, n}]]][i - n], {i, 0, 10}, {n, 1, i}] // Flatten
Table[Function[k, Denominator[HarmonicNumber[n, k]]][i - n], {i, 0, 10}, {n, 1, i}] // Flatten
Table[Function[k, Denominator[SeriesCoefficient[PolyLog[k, x]/(1 - x), {x, 0, n}]]][i - n], {i, 0, 10}, {n, 1, i}] // Flatten

G.f. of column k: PolyLog(k,x)/(1 - x), where PolyLog() is the polylogarithm function (for rationals Sum_{j=1..n} 1/j^k).

cp's OEIS Frontend

A103716 Numerators of sum_{k=1..n} 1/k^10 =: Zeta(10,n).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula