A159026 a(0)=89; a(n) = a(n-1) + floor(sqrt(a(n-1))), n > 0.

89, 98, 107, 117, 127, 138, 149, 161, 173, 186, 199, 213, 227, 242, 257, 273, 289, 306, 323, 340, 358, 376, 395, 414, 434, 454, 475, 496, 518, 540, 563, 586, 610, 634, 659, 684, 710, 736, 763, 790, 818, 846, 875, 904, 934, 964, 995, 1026, 1058, 1090, 1123, 1156, 1190

Offset: 0

Author

Philippe Deléham, Apr 02 2009

Keywords

• nonn

Comments

Row 8 in square array A159016.

This sequence contains infinitely many squares. - Philippe Deléham, Apr 04 2009

Crossrefs

Cf. A028392, A110287.

Programs

Mathematica

NestList[#+Floor[Sqrt[#]]&,89,60] (* Harvey P. Dale, Feb 26 2012 *)

Extensions

More terms from Vincenzo Librandi, Apr 10 2009