login
Floor of arithmetic-geometric mean of n and 2n.
1

%I #17 Dec 15 2017 17:35:05

%S 0,1,2,4,5,7,8,10,11,13,14,16,17,18,20,21,23,24,26,27,29,30,32,33,34,

%T 36,37,39,40,42,43,45,46,48,49,50,52,53,55,56,58,59,61,62,64,65,67,68,

%U 69,71,72,74,75,77,78,80,81,83,84,85,87,88,90,91,93,94,96,97,99,100,101

%N Floor of arithmetic-geometric mean of n and 2n.

%H Harry J. Smith, <a href="/A062005/b062005.txt">Table of n, a(n) for n=0,...,1000</a>

%t Table[Floor[ArithmeticGeometricMean[n,2n]],{n,0,100}] (* _Harvey P. Dale_, Oct 15 2013 *)

%o (PARI) v=[]; for(n=0,120,v=concat(v,floor(agm(n,2*n)))); v

%o (PARI) { for (n=0, 1000, write("b062005.txt", n, " ", floor(agm(n, 2*n))) ) } \\ _Harry J. Smith_, Jul 29 2009

%K easy,nonn

%O 0,3

%A _Jason Earls_, Jun 26 2001

%E Terms corrected by removing spurious commas and a term added by _Harry J. Smith_, Jul 29 2009