Strange plus numbers: Difference between revisions
m
→{{header|R}}
(J) |
m (→{{header|R}}) |
||
Line 1,652:
=={{header|R}}==
<lang rsplus>
pr <- sapply(1:18, \(n) n > 1 && all(n %% seq(2, length.out = n - 2) > 0))
is.strange <- function(n) {
| |||