OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..336
FORMULA
a(n) = numerator(sum_{k=1..n} 1/k^7).
G.f. for rationals Zeta(7, n): polylogarithm(7, x)/(1-x).
MAPLE
f:= n -> numer(Psi(6, n+1)/720 + Zeta(7)):
map(f, [$1..20]); # Robert Israel, Mar 28 2018
MATHEMATICA
s=0; lst={}; Do[s+=n^1/n^8; AppendTo[lst, Numerator[s]], {n, 3*4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 24 2009 *)
Table[ HarmonicNumber[n, 7] // Numerator, {n, 1, 12}] (* Jean-François Alcover, Dec 04 2013 *)
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Wolfdieter Lang, Feb 15 2005
STATUS
approved