%I #6 Sep 30 2012 13:55:03

%S 1,2,5,8,13,17,23,28,35,42,50,58,67,76,86,96,107,118,130,143,156,169,

%T 183,198,213,228,244,260,277,295,313,331,350,369,389,409,430,451,473,

%U 495,517,540,564,588,612,637,662,688,714,741,768,795,823,852,880,910

%N Floor of arithmetic-geometric mean of n and n^2.

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

%t Array[Floor[ArithmeticGeometricMean[#,#^2]]&,60] (* _Harvey P. Dale_, Sep 30 2012 *)

%Y Cf. A061979.

%K nonn

%O 1,2

%A _Zak Seidov_, Nov 02 2002