Calcula todos los divisores enteros de un número inicial entre 5, hasta que el divisor resultante no sea entero y te 
da la lista de resultados.
1.- Definimos la función de forma diferida. El punto y coma es para que no imprima el resultado.
2.- Aplíquese la función varias veces al número dado, hasta que no se cumpla la condición.
3.- Imprime una lista de los resultados, hasta el primer número que no cumpla la condición.

divide5[x_] := 
        (x/5);                                                         
NestWhile[divide5, 200, IntegerQ] 
NestWhileList[divide5, 200, IntegerQ]