R - 54
sum(nchar(gsub("[^o]","",english::english(1:scan()))))
I get 41 for n=101. I hope someone can confirm.
flodel
- 2.4k
- 16
- 16