what short github alphanumeric only names aren't taken

one_two_threes

library(httr)
library(dplyr)
url <- "https://www.github.com"

# all possible alpha numeric names
allowed_n_letters <- 1:3 # just change this to check others...
possible_paths <- lapply(allowed_n_letters,function(x) {
  combn(letters, x) %>% apply(2, paste0, collapse="")
}) %>% unlist()

# receiving vector
out <- vector("list", length(possible_paths))

# walk through all the requests. if staus is 200 it exists; if 404 it doesn't
for(i in seq_along(possible_paths)) {
  r <- GET(url,path = possible_paths[i])
  out[[i]] <- dplyr::data_frame(request_path = possible_paths[i], 
                                status_code = status_code(r))
}

res <- dplyr::bind_rows(out) %>%
  filter(status_code != 200)
res %>%
  readr::write_tsv("one_two_threes.tsv")

one_two_threes.tsv