A356142 a(n) is the reduced numerator of the arithmetic mean of the first n terms of the sequence [n + 1/n, n > 0].

2, 9, 47, 145, 1037, 469, 4283, 10841, 120529, 145981, 1913231, 2248181, 33938753, 39009533, 44438957, 100454479, 1916734943, 712651981, 15018824599, 662986195, 1213859861, 1327904701, 33283587163, 108432400555, 2934259832467, 3166619637067, 30671014001603, 32922658468103

Offset

1,1

Links

Table of n, a(n) for n=1..28.

Mathematica

Table[Numerator[Mean[Table[k+1/k, {k, n}]]], {n, 28}]

Prog

(PARI) a(n) = numerator(sum(k=1, n, k+1/k)/n); \\ Michel Marcus, Jul 28 2022

Crossrefs

Cf. A102928 (denominator), A356137.

Sequence in context: A306725 A032079 A002395 * A042793 A059272 A228341

Adjacent sequences: A356139 A356140 A356141 * A356143 A356144 A356145

Keyword

nonn,frac

Author

Stefano Spezia, Jul 27 2022

Status

approved