A061979 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

MATHEMATICA

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

PROG

(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

CROSSREFS

Sequence in context: A106765 A190785 A186290 * A050748 A348638 A079051

Adjacent sequences: A061976 A061977 A061978 * A061980 A061981 A061982

KEYWORD

easy,nonn

AUTHOR

Jason Earls, Jun 26 2001

EXTENSIONS

Corrected by T. D. Noe, Oct 25 2006

STATUS

approved