R语言求素数的函数怎么写