OFFSET
0,4
COMMENTS
a(A006933(n)) = 0; a(A008520(n)) > 0; a(A121065(n)) = n and a(m) != n for m < A121065(n). - Reinhard Zumkeller, Jan 24 2015
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Roel and Bas van Dijk, Numerals package, Hackage (Haskell packages)
Robert G. Wilson v, English names for the numbers from 0 to 11159 without spaces or hyphens .
EXAMPLE
a(123) = 5 because "onE hundrEd twEnty-thrEE" has 5 e's.
MATHEMATICA
StringCount[IntegerName/@Range[0, 99], "e"] (* Ivan N. Ianakiev, Mar 25 2017 *)
PROG
(Haskell)
import Data.Maybe (fromJust)
import Data.Text (Text); import qualified Data.Text as T (unpack))
import Text.Numeral.Grammar.Reified (defaultInflection)
import qualified Text.Numeral.Language.EN as EN -- see link
a085513 = length . filter (== 'e') . T.unpack . numeral where
numeral :: Integer -> Text
numeral = fromJust . EN.gb_cardinal defaultInflection
-- Reinhard Zumkeller, Jan 23 2015
(Python)
from num2words import num2words
def A085513(n):
return num2words(n).count('e') # Chai Wah Wu, Dec 20 2019
CROSSREFS
KEYWORD
easy,nonn,word
AUTHOR
Samuel Thompson (samuelt(AT)ugcs.caltech.edu), Jul 03 2003
STATUS
approved