2 deleted 7 characters in body
source | link

R - 6154

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

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

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.

R - 54

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

I get 41 for n=101. I hope someone can confirm.

1
source | link

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.