1 of 2

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.