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
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 02 2002
STATUS
approved