|
%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
|
