

A061979


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


8



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



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



KEYWORD

easy,nonn


AUTHOR



EXTENSIONS



STATUS

approved



