OFFSET
1,2
COMMENTS
Partial sum of the numerator of the n-th alternating harmonic number.
FORMULA
a(n) = Sum_{i=1..n} A058313(i) = Sum_{i=1..n} numerator(Sum_{k=1..i} (-1)^(k+1)/k). [Corrected by Petros Hadjicostas and Michel Marcus, May 06 2020]
MAPLE
a := proc(n) local i, k:
add(numer(add((-1)^(k + 1)/k, k = 1 .. i)), i = 1 .. n): end proc:
seq(a(n), n = 1 .. 40); # Petros Hadjicostas, May 06 2020
PROG
(PARI) a(n) = sum(i=1, n, numerator(sum(k=1, i, (-1)^(k+1)/k))); \\ Michel Marcus, May 07 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Feb 23 2010
EXTENSIONS
Data corrected and extended by Petros Hadjicostas, May 06 2020
STATUS
approved