A061979 Floor of arithmetic-geometric mean of n and prime(n).

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, 57, 58, 60, 62, 64, 70, 72, 75, 77, 81, 83, 86, 89, 91, 94, 97, 98, 103, 104, 107, 108, 113, 118, 121, 122, 124, 127, 129, 133, 136, 139, 142, 144, 147, 149, 151, 155, 161

Offset: 1

Author

Jason Earls, Jun 26 2001

Keywords

• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n=1,...,1000

Programs

Mathematica

Table[Floor[ArithmeticGeometricMean[n,Prime[n]]],{n,70}] (* Harvey P. Dale, Dec 25 2023 *)

PARI

v=[]; for(n=1,120,v=concat(v,floor(agm(n, prime(n))))); v

PARI

{ for (n=1, 1000, write("b061979.txt", n, " ", floor(agm(n, prime(n)))) ) } \\ Harry J. Smith, Jul 29 2009

Extensions

Corrected by T. D. Noe, Oct 25 2006