A127762 Integer part of Gauss's Arithmetic-Geometric Mean M(2,n^2).
1, 2, 4, 7, 10, 13, 16, 20, 25, 29, 34, 39, 45, 51, 57, 64, 71, 78, 86, 93, 102, 110, 119, 128, 137, 147, 157, 167, 177, 188, 199, 210, 222, 234, 246, 258, 271, 284, 297, 311, 325, 339, 353, 368, 382, 398, 413, 429, 444, 461, 477, 494, 511, 528, 545, 563, 581
Offset: 1
Keywords
Programs
-
Mathematica
Table[Floor[ArithmeticGeometricMean[2, n^2]], {n, 1, 100}]
Formula
a(n) ~ Pi*n^2/(4*log(n) + 2*log(2)). - Vaclav Kotesovec, May 09 2016