OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..2286
FORMULA
a(n) = n - Sum_{i = 1..n} 1/i.
a(n) = Sum_{i = 2..n} (i - 1)/i.
MAPLE
f:=n -> numer(n - harmonic(n)):map(f, [$1..100]); # Robert Israel, Apr 26 2021
MATHEMATICA
Numerator[Table[n - HarmonicNumber[n], {n, 25}]]
PROG
(PARI) a(n) = numerator(n - sum(i=1, n, 1/i)); \\ Michel Marcus, Apr 26 2021
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Alonso del Arte, Mar 10 2011
STATUS
approved