Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions

m
→‎{{header|R}}: Syntax highlighting.
(→‎{{header|PL/M}}: Added Polyglot:PL/I and PL/M and PL/I)
m (→‎{{header|R}}: Syntax highlighting.)
Line 1,207:
 
=={{header|R}}==
<lang Rrsplus>#Need to add 1 to account for skipping n. Not the most efficient way to count divisors, but quite clear.
divisorCount <- function(n) length(Filter(function(x) n %% x == 0, seq_len(n %/% 2))) + 1
A06954 <- function(terms)
331

edits