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
Programs
-
Mathematica
Table[Numerator[Mean[Table[k+1/k,{k,n}]]],{n,28}] -
PARI
a(n) = numerator(sum(k=1, n, k+1/k)/n); \\ Michel Marcus, Jul 28 2022