A159023 a(0)=41; a(n) = a(n-1) + floor(sqrt(a(n-1))), n > 0.

41, 47, 53, 60, 67, 75, 83, 92, 101, 111, 121, 132, 143, 154, 166, 178, 191, 204, 218, 232, 247, 262, 278, 294, 311, 328, 346, 364, 383, 402, 422, 442, 463, 484, 506, 528, 550, 573, 596, 620, 644, 669, 694, 720, 746, 773, 800, 828, 856, 885, 914, 944, 974, 1005, 1036

Offset: 0

Author

Philippe Deléham, Apr 02 2009

Keywords

• nonn

Comments

Row 5 in square array A159016.

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

Crossrefs

Cf. A028392

Programs

Mathematica

NestList[#+Floor[Sqrt[#]]&,41,60] (* Harvey P. Dale, Nov 06 2011 *)

Extensions

More terms from Vincenzo Librandi, Apr 10 2009

Error in sequence corrected by Jon E. Schoenfield, Jun 23 2010