A159263 a(0)=181; for n > 0, a(n) = a(n-1) + floor(sqrt a(n-1)).

181, 194, 207, 221, 235, 250, 265, 281, 297, 314, 331, 349, 367, 386, 405, 425, 445, 466, 487, 509, 531, 554, 577, 601, 625, 650, 675, 700, 726, 752, 779, 806, 834, 862, 891, 920, 950, 980, 1011, 1042, 1074, 1106, 1139, 1172, 1206, 1240, 1275, 1310, 1346

Offset

0,1

Comments

Row 12 in square array A159016. This sequence contains infinitely many squares.

Links

G. C. Greubel, Table of n, a(n) for n = 0..5000

Mathematica

RecurrenceTable[{a[n]==a[n-1] + Floor[Sqrt[a[n-1]]], a[0] == 181}, a, {n, 0, 50}] (* G. C. Greubel, Jun 28 2018 *)
NestList[#+Floor[Sqrt[#]]&, 181, 50] (* Harvey P. Dale, Jul 11 2026 *)

Crossrefs

Cf. A159016.

Sequence in context: A157747 A253156 A139649 * A159548 A206281 A224614

Adjacent sequences: A159260 A159261 A159262 * A159264 A159265 A159266

Keyword

nonn,changed

Author

Philippe Deléham, Apr 07 2009

Status

approved