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

1, 1024, 60466176, 61917364224, 604661760000000000, 604661760000000000, 170801981216778240000000000, 174901228765980917760000000000, 10327742657402407212810240000000000, 413109706296096288512409600000000

Offset

1,2

Comments

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

Links

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

Mathematica

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

Crossrefs

Sequence in context: A016798 A330485 A016834 * A016882 A227664 A016942

Adjacent sequences: A103714 A103715 A103716 * A103718 A103719 A103720

Keyword

nonn,frac,easy

Author

Wolfdieter Lang, Feb 15 2005

Status

approved