R语言输出1000以内的素数

输入一个数i，用i除以它前边的每个数，如果能整除，退出循环；如果一直到i-1都不能整除，说明是素数，输出i。执行i从2到1000这个循环，就能得到1：1000以内的所有素数了。

代码：

for(i in 2:1000)

{

  if(i==2)

  {

    print(i)

  }

  else

  {

    for(j in 2:(i-1))

    {

      if(i%%j==0)

      {

        break

      }

      else if((i%%j!=0)&(j==(i-1)))

      {

        print(i)

      }

    } 

  }

}

pdf("prime_numbers.pdf")

print(i)

dev.off()