Empilhados, 34 30 bytes
@n 1 2 6|>2\^,:n 2 log>keep 0#
ou
{!1 2 6|>2\^,:n 2 log>keep 0#}
O primeiro recebe entrada no TOS e deixa a saída no TOS; o segundo é uma função. Experimente aqui!
Explicação
@n 1 2 6|>2\^,:n 2 log>keep 0#
@n set TOS to `n`
1 2 6|>2\^, equiv. [1, ...2 ** range(2, 6)]
: duplicate it
n push `n`
2 log log base-2
> element-wise `>`
keep keep only truthy values
0# yield the first element
Aqui está um exemplo dele trabalhando na repl :
> 8 (* input *)
(8)
> @n 1 2 6|>2\^,:n 2 log>keep 0# (* function *)
(4)
> (* output *)
(4)
Casos de teste
> {!1 2 6|>2\^,:n 2 log>keep 0#} @:f
()
> (0 1 2 15 16 123 260 131313 34359750709) $f map
((1 1 4 4 8 8 16 32 64))
>
Ou, como um programa completo:
{!1 2 6|>2\^,:n 2 log>keep 0#} @:f
(0 1 2 15 16 123 260 131313 34359750709) $f map
out
2
também houvesse uma saída ...