A127763 Integer part of Gauss's Arithmetic-Geometric Mean M(2,n).

1, 2, 2, 2, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 22, 22, 22, 23, 23, 23, 23, 24

Offset: 1

Author

Artur Jasinski, Jan 28 2007

Keywords

• nonn

Crossrefs

Cf. A127758, A127759, A127760, A127761, A127762, A127764, A127765, A127766.

Programs

Mathematica

Table[Floor[ArithmeticGeometricMean[2, n]], {n, 1, 100}]

Formula

a(n) ~ Pi*n/(2*log(2*n)). - Vaclav Kotesovec, May 09 2016