1,2

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.

a[1] = 1; a[n_] := a[n] = Floor[n/a[Floor[n/2]]]; Table[ a[n], {n, 94}]

Cf. A096036, A097053.

Sequence in context: A031217 A078545 A111497 this_sequence A078832 A086410 A103266

Adjacent sequences: A097048 A097049 A097050 this_sequence A097052 A097053 A097054

nonn

Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 21 2004