A159024 a(0)=55; a(n) = a(n-1) + floor(sqrt(a(n-1))), n > 0.
55, 62, 69, 77, 85, 94, 103, 113, 123, 134, 145, 157, 169, 182, 195, 208, 222, 236, 251, 266, 282, 298, 315, 332, 350, 368, 387, 406, 426, 446, 467, 488, 510, 532, 555, 578, 602, 626, 651, 676, 702, 728, 754, 781, 808, 836, 864, 893, 922, 952, 982, 1013, 1044
Offset: 0
Keywords
Programs
-
Mathematica
NestList[#+Floor[Sqrt[#]]&,55,60] (* Harvey P. Dale, Nov 27 2022 *)
Extensions
More terms from Vincenzo Librandi, Apr 10 2009
Comments