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.
%I A332094 #23 Dec 20 2024 02:08:42
%S A332094 1,2,17,22,27,142,31,9,97,666,83,604,1529,1906,791,367,3533,4238,5019,
%T A332094 584,617,7822,8995,518,473,13342,1663,8324,3689,20662,23003,532,1655,
%U A332094 31074,541,6218,2145,44354,48187,2613,18805,20330,65651,356,15083,80894,28979,23293
%N A332094 Numerator of the average distance among first n primes.
%F A332094 a(n) = numerator((2/(n*(n-1)))*Sum_{j=2..n} Sum_{i=1..j-1} (prime(j) - prime(i))).
%t A332094 nmax=64;
%t A332094 Table[Total[Flatten[Table[Table[Prime[k] - Prime[j], {j, 1, k - 1}], {k, 2, n}]]]/(n*(n - 1)/2), {n, 2, nmax}]//Numerator
%o A332094 (PARI) lista(nn) = {my(vp = primes(nn)); vector(nn-1, k, k++; numerator((2/(k*(k-1))*sum(j=2, k, sum(i=1, j-1, vp[j] - vp[i])))));} \\ _Michel Marcus_, Nov 21 2020
%Y A332094 Cf. A336814 (denominator), A338869, A339022, A062020.
%K A332094 nonn,frac
%O A332094 2,2
%A A332094 _Andres Cicuttin_, Nov 20 2020