1,2

a(50)=ceiling(50/a(25))

..... a(25)=ceiling(25/a(13))

........... a(13)=ceiling(13/a(7))

................. a(7)=ceiling(7/a(4))

...................... a(4)=ceiling(4/a(2))

........................... a(2)=ceiling(2/a(1))

................................ a(1)=1

........................... a(2)=ceiling(2/a(1))=ceiling(2/1)=2

...................... a(4)=ceiling(4/a(2))=ceiling(4/2)=2

................. a(7)=ceiling(7/a(4))=ceiling(7/2)=4

........... a(13)=ceiling(13/a(7))=ceiling(13/4)=4

..... a(25)=ceiling(25/a(13))=ceiling(25/4)=7

a(50)=ceiling(50/a(25))=ceiling(50/7)=8.

a[1] = 1; a[n_] := a[n] = Ceiling[ n / a[Ceiling[ n/2]]]; Table[ a[n], {n, 91}] (from Robert G. Wilson v Jul 21 2004)

Cf. A097051, A097052.

Sequence in context: A064144 A077105 A153847 this_sequence A108504 A036468 A028829

Adjacent sequences: A096033 A096034 A096035 this_sequence A096037 A096038 A096039

nonn

Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 20 2004