A076145 Floor of arithmetic-geometric mean of n and n^2.

1, 2, 5, 8, 13, 17, 23, 28, 35, 42, 50, 58, 67, 76, 86, 96, 107, 118, 130, 143, 156, 169, 183, 198, 213, 228, 244, 260, 277, 295, 313, 331, 350, 369, 389, 409, 430, 451, 473, 495, 517, 540, 564, 588, 612, 637, 662, 688, 714, 741, 768, 795, 823, 852, 880, 910

Offset

1,2

Comments

Floor of arithmetic-geometric mean of n and prime(n) = A061979(n).

Links

Table of n, a(n) for n=1..56.

Mathematica

Array[Floor[ArithmeticGeometricMean[#, #^2]]&, 60] (* Harvey P. Dale, Sep 30 2012 *)

Crossrefs

Cf. A061979.

Sequence in context: A000789 A178752 A225255 * A332774 A256829 A342431

Adjacent sequences: A076142 A076143 A076144 * A076146 A076147 A076148

Keyword

nonn

Author

Zak Seidov, Nov 02 2002

Status

approved