A008520 Numbers whose American English name contains the letter 'e'.

0, 1, 3, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, 45, 47, 48, 49, 51, 53, 55, 57, 58, 59, 61, 63, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• word

Comments

A085513(a(n)) > 0. - Reinhard Zumkeller, Jan 23 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Roel and Bas van Dijk, Numerals package, Hackage (Haskell packages)
• Index entries for sequences related to number of letters in n

Crossrefs

Cf. A006933 (complement), A085513.

Cf. A008519 (o), A008522 (t), A008536 (n), A008538 (s), A008540 (f), A008553 (y).

Programs

Haskell

import Data.Maybe (fromJust)
import Data.Text (Text); import qualified Data.Text as T (any)
import Text.Numeral.Grammar.Reified (defaultInflection)
import qualified Text.Numeral.Language.EN as EN  -- see link
a008520 n = a008520_list !! (n-1)
a008520_list = filter (T.any (== 'e') . numeral) [0..] where
   numeral :: Integer -> Text
   numeral = fromJust . EN.gb_cardinal defaultInflection
-- Reinhard Zumkeller, Jan 23 2015

Mathematica

A008520Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"e"];Select[Range[0,200],A008520Q] (* Paolo Xausa, Aug 11 2023 *)

Extensions

Name edited by Michael De Vlieger, Aug 11 2023