A234363 a(n) = floor(agm(n, triangular(n))), where agm denotes the arithmetic-geometric mean.

0, 1, 2, 4, 6, 9, 12, 15, 19, 23, 27, 32, 37, 42, 48, 54, 60, 66, 73, 80, 88, 95, 103, 111, 120, 129, 138, 147, 156, 166, 176, 187, 197, 208, 219, 231, 242, 254, 267, 279, 292, 305, 318, 331, 345, 359, 373, 388, 402, 417, 432, 448, 464, 479, 496, 512, 529, 546

Offset: 0

Author

Alex Ratushnyak, Dec 24 2013

Keywords

• nonn

Crossrefs

Cf. A000217, A061979, A076145, A234362.

Programs

Mathematica

Table[Floor[ArithmeticGeometricMean[n,(n(n+1))/2]],{n,0,60}] (* Harvey P. Dale, Aug 17 2014 *)

Formula

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