A159027 a(0)=109; a(n) = a(n-1) + floor(sqrt(a(n-1))), n > 0.
109, 119, 129, 140, 151, 163, 175, 188, 201, 215, 229, 244, 259, 275, 291, 308, 325, 343, 361, 380, 399, 418, 438, 458, 479, 500, 522, 544, 567, 590, 614, 638, 663, 688, 714, 740, 767, 794, 822, 850, 879, 908, 938, 968, 999, 1030, 1062, 1094, 1127, 1160, 1194, 1228, 1263, 1298, 1334, 1370, 1407, 1444
Offset: 0
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
NestList[#+Floor[Sqrt[#]]&,109,60] (* Harvey P. Dale, May 01 2020 *)
Extensions
More terms from Vincenzo Librandi, Apr 10 2009
Comments