This site is supported by donations to The OEIS Foundation.

 Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A097051 a(n) = floor(n/a(floor(n/2))); a(1) = 1. 2
 1, 2, 3, 2, 2, 2, 2, 4, 4, 5, 5, 6, 6, 7, 7, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS FORMULA If floor(log_2(n))=2k+1, then a(n) = floor(n/2^k). If floor(log_2(n))=2k, then a(n) = 2^k. EXAMPLE a(50)=floor(50/a(25)) ..... a(25)=floor(25/a(12)) ........... a(12)=floor(12/a(6)) ................. a(6)=floor(6/a(3)) ...................... a(3)=floor(3/a(1)) ........................... a(1)=1 ...................... a(3)=floor(3/a(1))=floor(3/1)=3 ................. a(6)=floor(6/a(3))=floor(6/3)=2 ........... a(12)=floor(12/a(6))=floor(12/2)=6 ..... a(25)=floor(25/a(12))=floor(25/6)=4 a(50)=floor(50/a(25))=floor(50/4)=12. MATHEMATICA a[1] = 1; a[n_] := a[n] = Floor[n/a[Floor[n/2]]]; Table[ a[n], {n, 94}] CROSSREFS Cf. A096036, A097053. Sequence in context: A220554 A208243 A209320 * A078832 A086410 A185049 Adjacent sequences:  A097048 A097049 A097050 * A097052 A097053 A097054 KEYWORD nonn AUTHOR Reinhard Zumkeller and Robert G. Wilson v, Jul 21 2004 EXTENSIONS Formula added by Max Alekseyev, Mar 02 2011 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.

Last modified November 18 14:15 EST 2017. Contains 294893 sequences.