OFFSET
1,2
EXAMPLE
(1)(1 + 1/2)(1 + 1/2 + 1/3) = 1*(3/2)*(11/6) = 11/4, so a(3) = 11.
MATHEMATICA
a[n_] := Numerator[ Product[ HarmonicNumber[k], {k, 1, n}]]; Table[ a[n], {n, 14}] (* Robert G. Wilson v, Aug 26 2004 *)
Numerator[Rest[FoldList[Times, 1, HarmonicNumber[Range[20]]]]] (* Harvey P. Dale, Apr 02 2015 *)
PROG
(PARI) hh(n)=sum(i=1, n, 1/i); ff(n)=numerator(prod(i=1, n, hh(i))); for (i=1, 30, print1(ff(i), ", ")) \\ Mohammed Bouayoun (mohammed.bouayoun(AT)sanef.com), Aug 23 2004
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Aug 21 2004
EXTENSIONS
More terms from Mohammed Bouayoun (mohammed.bouayoun(AT)sanef.com) and Robert G. Wilson v, Aug 23 2004
STATUS
approved