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

Author

Zak Seidov, Nov 02 2002

Keywords

• nonn

Comments

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

Crossrefs

Cf. A061979.

Programs

Mathematica

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