OFFSET
1,2
COMMENTS
The sequence gives the numerators of -n^(n+1)*Phi(n,1,n+1)-log(-n+1) for n>1, where Phi is the Lerch transcendent.
LINKS
Bruno Berselli, Table of n, a(n) for n = 1..100
MAPLE
MATHEMATICA
f[n_] := Sum[n^i/i, {i, 1, n}]; Table[Numerator[f[n]], {n, 1, 20}]
PROG
(Magma) terms:=20; s:=[&+[n^i/i: i in [1..n]]: n in [1..terms]]; [Numerator(s[n]): n in [1..terms]];
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Bruno Berselli, Feb 14 2014
STATUS
approved