%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
|