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

Author

Wolfdieter Lang, Feb 15 2005

Keywords

• nonn
• frac
• easy

Comments

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

Programs

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 *)