|
|
A096036
|
|
a(n) = ceiling(n/a(ceiling(n/2))); a(1) = 1.
|
|
3
|
|
|
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, 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, 12, 12, 12, 12, 12, 10, 10, 10, 10, 10, 10, 10, 10, 12, 12, 12, 12, 11, 11, 11, 11, 12, 12, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|