A062005 Floor of arithmetic-geometric mean of n and 2n.

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, 36, 37, 39, 40, 42, 43, 45, 46, 48, 49, 50, 52, 53, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 83, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 99, 100, 101

Offset

0,3

Links

Harry J. Smith, Table of n, a(n) for n=0,...,1000

Mathematica

Table[Floor[ArithmeticGeometricMean[n, 2n]], {n, 0, 100}] (* Harvey P. Dale, Oct 15 2013 *)

Prog

(PARI) v=[]; for(n=0, 120, v=concat(v, floor(agm(n, 2*n)))); v
(PARI) { for (n=0, 1000, write("b062005.txt", n, " ", floor(agm(n, 2*n))) ) } \\ Harry J. Smith, Jul 29 2009

Crossrefs

Sequence in context: A194145 A330116 A189784 * A039018 A284602 A286355

Adjacent sequences: A062002 A062003 A062004 * A062006 A062007 A062008

Keyword

easy,nonn

Author

Jason Earls, Jun 26 2001

Extensions

Terms corrected by removing spurious commas and a term added by Harry J. Smith, Jul 29 2009

Status

approved