A159258 a(0)=155; for n > 0, a(n) = a(n-1) + floor(sqrt(a(n-1))).
155, 167, 179, 192, 205, 219, 233, 248, 263, 279, 295, 312, 329, 347, 365, 384, 403, 423, 443, 464, 485, 507, 529, 552, 575, 598, 622, 646, 671, 696, 722, 748, 775, 802, 830, 858, 887, 916, 946, 976, 1007, 1038, 1070, 1102, 1135, 1168, 1202, 1236, 1271, 1306
Offset: 0
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 0..5000
Programs
-
Mathematica
RecurrenceTable[{a[n]==a[n-1] + Floor[Sqrt[a[n-1]]], a[0] == 155}, a, {n, 0, 50}] (* G. C. Greubel, Jun 28 2018 *)
Comments