¿Por qué no funciona esto? Dinámico en un Select

Ok hago esto

Select[Range[1, 20], # > Dynamic[q] &]

Y luego creo el deslizador:

Slider[Dynamic[q], {1, 20}]

¡Y siempre te devolverá un set vacío! ¡Por qué!

Actualizar El objetivo de esto es que el conjunto cambie cuando muevo el control deslizante.

Respuestas a la pregunta(3)

Su respuesta a la pregunta