%I #7 Jul 29 2022 09:53:58
%S 2,9,47,145,1037,469,4283,10841,120529,145981,1913231,2248181,
%T 33938753,39009533,44438957,100454479,1916734943,712651981,
%U 15018824599,662986195,1213859861,1327904701,33283587163,108432400555,2934259832467,3166619637067,30671014001603,32922658468103
%N a(n) is the reduced numerator of the arithmetic mean of the first n terms of the sequence [n + 1/n, n > 0].
%t Table[Numerator[Mean[Table[k+1/k,{k,n}]]],{n,28}]
%o (PARI) a(n) = numerator(sum(k=1, n, k+1/k)/n); \\ _Michel Marcus_, Jul 28 2022
%Y Cf. A102928 (denominator), A356137.
%K nonn,frac
%O 1,1
%A _Stefano Spezia_, Jul 27 2022