R - 61
--

    sum(sapply(gsub("[^o]","",english::english(1:scan())),nchar))

Unlike the OP, I get 41 when the input is 101. I hope someone can confirm.