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,3

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A006933 (complement), A085513.

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

Sequence in context: A086674 A137203 A102890 * A217129 A336340 A100318

Adjacent sequences: A008517 A008518 A008519 * A008521 A008522 A008523

Keyword

nonn,word

Author

N. J. A. Sloane

Extensions

Name edited by Michael De Vlieger, Aug 11 2023

Status

approved