This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A130147 #15 Sep 03 2017 20:11:47 %S A130147 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, %T A130147 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, %U A130147 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 %N A130147 a(0)=1. a(n+1) = a(floor(n/a(n))) + 1. %C A130147 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 %H A130147 N. J. A. Sloane, <a href="/A130147/b130147.txt">Table of n, a(n) for n = 0..20000</a> %p A130147 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 %t A130147 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 *) %Y A130147 Cf. A002627, A132424. %Y A130147 See A130193 for "ceiling" version. %K A130147 easy,nonn %O A130147 0,2 %A A130147 _Leroy Quet_, Aug 02 2007 %E A130147 More terms from _Emeric Deutsch_ and _John W. Layman_, Aug 19 2007