Primality by trial division: Difference between revisions

Content added Content deleted
m (→‎{{header|R}}: replaced buggy implementation (according to it 3 is not prime...). Mind the bounds in seq.)
Line 3,407:
 
=={{header|R}}==
<lang rslangrsplus>is.prime <- function(n) n == 2 || n > 2 && n %% 2 == 1 && (n < 9 || all(n %% seq(3, floor(sqrt(n)), 2) > 0))
 
which(sapply(1:100, is.prime))
Retrieved from "https://rosettacode.org/wiki/Primality_by_trial_division"