Prime number fun with R