funcion EsPrimo