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