OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..1520
FORMULA
MAPLE
R:= [seq(1/i, i=1..100)]:
S:= ListTools:-PartialSums(R):
f:= proc(n) local k; numer(add(S[k]*S[n+1-k], k=1..n)): end proc:
map(f, [$1..100]); # Robert Israel, Feb 27 2022
MATHEMATICA
f[n_] := Sum[ HarmonicNumber[k] HarmonicNumber[n + 1 - k], {k, n}]; Table[ Numerator@ f@n, {n, 24}] (* Robert G. Wilson v, Jul 02 2007 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Jun 07 2007
EXTENSIONS
More terms from Robert G. Wilson v, Jul 02 2007
STATUS
approved