OFFSET
1,2
MAPLE
with(numtheory): H:=n->sum(1/k, k=1..n): a:=n->tau(numer(H(n))): seq(a(n), n=1..89); # Emeric Deutsch, May 04 2007
MATHEMATICA
DivisorSigma[0, Numerator[HarmonicNumber[Range[90]]]] (* Harvey P. Dale, Feb 01 2012 *)
PROG
(PARI) a(n) = numdiv(numerator(sum(k=1, n, 1/k))); \\ Michel Marcus, Feb 10 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 22 2007
EXTENSIONS
More terms from Emeric Deutsch, May 04 2007
STATUS
approved