login
A103717
Denominators of sum_{k=1..n} 1/k^10 = Zeta(10,n).
2
1, 1024, 60466176, 61917364224, 604661760000000000, 604661760000000000, 170801981216778240000000000, 174901228765980917760000000000, 10327742657402407212810240000000000, 413109706296096288512409600000000
OFFSET
1,2
COMMENTS
For the numerators, comments and a link reference see A103716.
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
KEYWORD
nonn,frac,easy
AUTHOR
Wolfdieter Lang, Feb 15 2005
STATUS
approved