cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

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