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 A061979 #14 Dec 25 2023 13:46:04
%S A061979 1,2,3,5,7,9,11,12,15,18,19,22,25,26,28,31,34,36,39,41,42,45,48,51,54,
%T A061979 57,58,60,62,64,70,72,75,77,81,83,86,89,91,94,97,98,103,104,107,108,
%U A061979 113,118,121,122,124,127,129,133,136,139,142,144,147,149,151,155,161
%N A061979 Floor of arithmetic-geometric mean of n and prime(n).
%H A061979 Harry J. Smith, <a href="/A061979/b061979.txt">Table of n, a(n) for n=1,...,1000</a>
%t A061979 Table[Floor[ArithmeticGeometricMean[n,Prime[n]]],{n,70}] (* _Harvey P. Dale_, Dec 25 2023 *)
%o A061979 (PARI) v=[]; for(n=1,120,v=concat(v,floor(agm(n, prime(n))))); v
%o A061979 (PARI) { for (n=1, 1000, write("b061979.txt", n, " ", floor(agm(n, prime(n)))) ) } \\ _Harry J. Smith_, Jul 29 2009
%K A061979 easy,nonn
%O A061979 1,2
%A A061979 _Jason Earls_, Jun 26 2001
%E A061979 Corrected by _T. D. Noe_, Oct 25 2006