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 A096036 #5 Jul 24 2015 23:15:13 %S A096036 1,2,2,2,3,3,4,4,3,4,4,4,4,4,4,4,6,6,5,5,6,6,6,6,7,7,7,7,8,8,8,8,6,6, %T A096036 6,6,8,8,8,8,7,7,8,8,8,8,8,8,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,11,11,12, %U A096036 12,12,12,12,12,10,10,10,10,10,10,10,10,12,12,12,12,11,11,11,11,12,12,12 %N A096036 a(n) = ceiling(n/a(ceiling(n/2))); a(1) = 1. %e A096036 a(50)=ceiling(50/a(25)) %e A096036 ..... a(25)=ceiling(25/a(13)) %e A096036 ........... a(13)=ceiling(13/a(7)) %e A096036 ................. a(7)=ceiling(7/a(4)) %e A096036 ...................... a(4)=ceiling(4/a(2)) %e A096036 ........................... a(2)=ceiling(2/a(1)) %e A096036 ................................ a(1)=1 %e A096036 ........................... a(2)=ceiling(2/a(1))=ceiling(2/1)=2 %e A096036 ...................... a(4)=ceiling(4/a(2))=ceiling(4/2)=2 %e A096036 ................. a(7)=ceiling(7/a(4))=ceiling(7/2)=4 %e A096036 ........... a(13)=ceiling(13/a(7))=ceiling(13/4)=4 %e A096036 ..... a(25)=ceiling(25/a(13))=ceiling(25/4)=7 %e A096036 a(50)=ceiling(50/a(25))=ceiling(50/7)=8. %t A096036 a[1] = 1; a[n_] := a[n] = Ceiling[ n / a[Ceiling[ n/2]]]; Table[ a[n], {n, 91}] (* _Robert G. Wilson v_, Jul 21 2004 *) %Y A096036 Cf. A097051, A097052. %K A096036 nonn %O A096036 1,2 %A A096036 _Reinhard Zumkeller_, Jul 20 2004