R코딩에서 자연수를 넣었을때 소수인지 소수가 아닌지 판별하는 식이 뭔지 알아?