cp's OEIS Frontend

A085513 Number of "e"s in n (in English).

%I A085513 #18 Dec 20 2019 19:03:15
%S A085513 1,1,0,2,0,1,0,2,1,1,1,3,2,2,2,2,2,4,3,3,1,2,1,3,1,2,1,3,2,2,0,1,0,2,
%T A085513 0,1,0,2,1,1,0,1,0,2,0,1,0,2,1,1,0,1,0,2,0,1,0,2,1,1,0,1,0,2,0,1,0,2,
%U A085513 1,1,2,3,2,4,2,3,2,4,3,3,1,2,1,3,1,2,1,3,2,2,1,2,1,3,1,2,1,3,2,2
%N A085513 Number of "e"s in n (in English).
%C A085513 a(A006933(n)) = 0; a(A008520(n)) > 0. - _Reinhard Zumkeller_, Jan 23 2015
%C A085513 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
%H A085513 Reinhard Zumkeller, <a href="/A085513/b085513.txt">Table of n, a(n) for n = 0..10000</a>
%H A085513 Roel and Bas van Dijk, <a href="http://hackage.haskell.org/package/numerals">Numerals package</a>, Hackage (Haskell packages)
%H A085513 Robert G. Wilson v, <a href="/A000027/a000027.txt">English names for the numbers from 0 to 11159 without spaces or hyphens </a>.
%H A085513 <a href="/index/Lc#letters">Index entries for sequences related to number of letters in n</a>
%e A085513 a(123) = 5 because "onE hundrEd twEnty-thrEE" has 5 e's.
%t A085513 StringCount[IntegerName/@Range[0,99],"e"] (* _Ivan N. Ianakiev_, Mar 25 2017 *)
%o A085513 (Haskell)
%o A085513 import Data.Maybe (fromJust)
%o A085513 import Data.Text (Text); import qualified Data.Text as T (unpack))
%o A085513 import Text.Numeral.Grammar.Reified (defaultInflection)
%o A085513 import qualified Text.Numeral.Language.EN as EN  -- see link
%o A085513 a085513 = length . filter (== 'e') . T.unpack . numeral where
%o A085513    numeral :: Integer -> Text
%o A085513    numeral = fromJust . EN.gb_cardinal defaultInflection
%o A085513 -- _Reinhard Zumkeller_, Jan 23 2015
%o A085513 (Python)
%o A085513 from num2words import num2words
%o A085513 def A085513(n):
%o A085513     return num2words(n).count('e') # _Chai Wah Wu_, Dec 20 2019
%Y A085513 Cf. A005589.
%Y A085513 Cf. A006933, A008520.
%K A085513 easy,nonn,word
%O A085513 0,4
%A A085513 Samuel Thompson (samuelt(AT)ugcs.caltech.edu), Jul 03 2003