|
|
|
|
1, 2, 7, 14, 61, 98, 417, 950, 2829, 4456, 24873, 42980, 306091, 543462, 595741, 691290, 2459767, 4092108, 37557035, 193242042, 360012409, 516201296, 4341338257, 7943382348, 27024448579, 45075855410, 102204647503, 109956141102, 346222803073, 571398562364
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Partial sum of the numerator of the n-th alternating harmonic number.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
a := proc(n) local i, k:
add(numer(add((-1)^(k + 1)/k, k = 1 .. i)), i = 1 .. n): end proc:
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|