8 lines
112 B
R
8 lines
112 B
R
hamming <- function(n) {
|
|
a <- numeric(n)
|
|
a[1] <- 1
|
|
for (i in 2:n) {
|
|
a[i] <- nextn(a[i-1]+1)
|
|
}
|
|
a
|
|
}
|