A103348 Denominators of sum_{k=1..n} 1/k^7 = Zeta(7,n).

1, 128, 279936, 35831808, 2799360000000, 933120000000, 768464444160000000, 98363448852480000000, 645362587921121280000000, 645362587921121280000000, 12576291107821424895098880000000, 12576291107821424895098880000000

Offset

1,2

Comments

For the numerators, comments and a link reference see A103347.

Links

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

Mathematica

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

Crossrefs

Sequence in context: A338110 A283926 A016831 * A334669 A069446 A227605

Adjacent sequences: A103345 A103346 A103347 * A103349 A103350 A103351

Keyword

nonn,frac,easy

Author

Wolfdieter Lang, Feb 15 2005

Status

approved