count <- function(n) grep("^[0-9]0*$", 0:n, value=T)