

A061979


Floor of arithmeticgeometric mean of n and prime(n).


5



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


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 A079051 A226047
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



