login
A130147
a(0)=1. a(n+1) = a(floor(n/a(n))) + 1.
8
1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 4, 5, 4, 4, 4, 4, 4, 5, 4, 5, 5, 5, 5, 5, 4, 5, 4, 5, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
OFFSET
0,2
COMMENTS
Records occur at 0,1,3,10,41,206,1237,8660,69281,623530,6235301, which appears to be A002627. See A132424 for a related sequence. - John W. Layman, Aug 20 2007
LINKS
MAPLE
a[0]:=1: for n from 0 to 110 do a[n+1]:=1+a[floor(n/a[n])] end do: seq(a[n], n=0..110); # Emeric Deutsch, Aug 19 2007
MATHEMATICA
a[0] = 1; a[n_] := a[n] = 1 + a[Floor[(n - 1)/a[n - 1]]]; Array[a, 105, 0] (* Michael De Vlieger, Sep 03 2017 *)
CROSSREFS
See A130193 for "ceiling" version.
Sequence in context: A340500 A131981 A257244 * A345377 A096143 A025792
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Aug 02 2007
EXTENSIONS
More terms from Emeric Deutsch and John W. Layman, Aug 19 2007
STATUS
approved