isPrime<-function(N)
{
if(N<2) return(0);
if(N==2) return(1);
for(i in 2:floor(sqrt(N)+1))
{
if(N %% i ==0) return(0);
}
return(1);
}
prtPrimes<-function(n)
{
cnt<-0;
primes<-NULL;
for(j in 1:n)
{
if(isPrime(j)==1) { cnt<-cnt+1; primes<-c(primes,j);}
}
return(list(cnt=cnt,primes=primes));
}
n<-100;
x<-prtPrimes(n);
print(x$primes);
cat("The number of primes less than n", n, "is",x$cnt,"\n");