login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A130147 a(0)=1. a(n+1) = a(floor(n/a(n))) + 1. 5
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 (list; graph; refs; listen; history; text; internal format)
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

N. J. A. Sloane, Table of n, a(n) for n = 0..20000

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

Cf. A002627, A132424.

See A130193 for "ceiling" version.

Sequence in context: A072375 A131981 A257244 * A096143 A025792 A119447

Adjacent sequences:  A130144 A130145 A130146 * A130148 A130149 A130150

KEYWORD

easy,nonn

AUTHOR

Leroy Quet, Aug 02 2007

EXTENSIONS

More terms from Emeric Deutsch and John W. Layman, Aug 19 2007

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 16 00:11 EST 2018. Contains 317252 sequences. (Running on oeis4.)