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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A061979 Floor of arithmetic-geometric mean of n and prime(n). 8

%I #14 Dec 25 2023 13:46:04

%S 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 57,58,60,62,64,70,72,75,77,81,83,86,89,91,94,97,98,103,104,107,108,

%U 113,118,121,122,124,127,129,133,136,139,142,144,147,149,151,155,161

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

%H Harry J. Smith, <a href="/A061979/b061979.txt">Table of n, a(n) for n=1,...,1000</a>

%t Table[Floor[ArithmeticGeometricMean[n,Prime[n]]],{n,70}] (* _Harvey P. Dale_, Dec 25 2023 *)

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

%o (PARI) { for (n=1, 1000, write("b061979.txt", n, " ", floor(agm(n, prime(n)))) ) } \\ _Harry J. Smith_, Jul 29 2009

%K easy,nonn

%O 1,2

%A _Jason Earls_, Jun 26 2001

%E Corrected by _T. D. Noe_, Oct 25 2006

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 8 08:26 EDT 2024. Contains 375753 sequences. (Running on oeis4.)