login
A076145
Floor of arithmetic-geometric mean of n and n^2.
3
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).
MATHEMATICA
Array[Floor[ArithmeticGeometricMean[#, #^2]]&, 60] (* Harvey P. Dale, Sep 30 2012 *)
CROSSREFS
Cf. A061979.
Sequence in context: A000789 A178752 A225255 * A332774 A256829 A342431
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 02 2002
STATUS
approved