A008522 -id:A008522 - cp's OEIS frontend

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

N. J. A. Sloane

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

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

Cf. A006933 (complement), A085513.

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

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

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

Name edited by Michael De Vlieger, Aug 11 2023

A008536 Numbers whose American English name contains the letter 'n'.

Original entry on oeis.org

1, 7, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 37, 39, 41, 47, 49, 51, 57, 59, 61, 67, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107

Offset: 1

N. J. A. Sloane

Paolo Xausa, Table of n, a(n) for n = 1..10000

Cf. A008519 (o), A008520 (e), A008522 (t), A008538 (s), A008540 (f), A008553 (y).

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

Name edited by Paolo Xausa, Aug 12 2023

A008519 Numbers whose American English name contains the letter 'o'.

Original entry on oeis.org

0, 1, 2, 4, 14, 21, 22, 24, 31, 32, 34, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 54, 61, 62, 64, 71, 72, 74, 81, 82, 84, 91, 92, 94, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123

Offset: 1

N. J. A. Sloane

Paolo Xausa, Table of n, a(n) for n = 1..10000

Cf. A008520 (e), A008522 (t), A008536 (n), A008538 (s), A008540 (f), A008553 (y).

A008519Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"o"];Select[Range[0,200],A008519Q] (* Paolo Xausa, Aug 10 2023 *)

Name edited by Paolo Xausa, Aug 12 2023

A008538 Numbers whose American English name contains the letter 's'.

Original entry on oeis.org

6, 7, 16, 17, 26, 27, 36, 37, 46, 47, 56, 57, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 86, 87, 96, 97, 106, 107, 116, 117, 126, 127, 136, 137, 146, 147, 156, 157, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173

Offset: 1

N. J. A. Sloane

Paolo Xausa, Table of n, a(n) for n = 1..10000

Cf. A008519 (o), A008520 (e), A008522 (t), A008536 (n), A008540 (f), A008553 (y).

A008538Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"s"];Select[Range[0,200],A008538Q] (* Paolo Xausa, Aug 12 2023 *)

Name edited by Paolo Xausa, Aug 12 2023

A008540 Numbers whose American English name contains the letter 'f'.

Original entry on oeis.org

4, 5, 14, 15, 24, 25, 34, 35, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105, 114, 115, 124, 125, 134, 135, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158

Offset: 1

N. J. A. Sloane

Paolo Xausa, Table of n, a(n) for n = 1..10000

Cf. A008519 (o), A008520 (e), A008522 (t), A008536 (n), A008538 (s), A008553 (y).

A008540Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"f"];Select[Range[0,200],A008540Q] (* Paolo Xausa, Aug 12 2023 *)

Name edited by Paolo Xausa, Aug 12 2023

A008553 Numbers whose American English name contains the letter 'y'.

Original entry on oeis.org

20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85

Offset: 1

N. J. A. Sloane

Paolo Xausa, Table of n, a(n) for n = 1..10000
Tanya Khovanova, Non Recursions

Cf. A008519 (o), A008520 (e), A008522 (t), A008536 (n), A008538 (s), A008540 (f).

A008553Q[n_]:=StringContainsQ[IntegerName[n,"Words"],"y"];Select[Range[0,200],A008553Q] (* Paolo Xausa, Aug 12 2023 *)

Name edited by Paolo Xausa, Aug 12 2023

A008523 Numbers that do not contain the letter 't'.

Original entry on oeis.org

0, 1, 4, 5, 6, 7, 9, 11, 100, 101, 104, 105, 106, 107, 109, 111, 400, 401, 404, 405, 406, 407, 409, 411, 500, 501, 504, 505, 506, 507, 509, 511, 600, 601, 604, 605, 606, 607, 609, 611, 700, 701, 704, 705, 706, 707, 709, 711, 900, 901, 904, 905, 906, 907, 909, 911, 1000000, 1000001, 1000004, 1000005

Offset: 1

N. J. A. Sloane

See also A006933, the eban numbers (numbers not containing 'e'), and A089589 (the iban numbers). This sequence might correspondingly be called the "tban" numbers. - WG Zeist, Aug 31 2012

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

Cf. A006933 (ban e), A089589 (ban i), A008521 (ban o), A089590 (ban u).

Complement of A008522.

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

from num2words import num2words
from itertools import islice, product
def ok(n): return "t" not in num2words(n)
def agen(): # generator of terms < 10**304
    base, pows = [k for k in range(1, 1000) if ok(k)], [1]
    yield from ([0] if ok(0) else []) + base
    for e in range(3, 304, 3):
        if "u" not in num2words(10**e)[4:]:
            pows = [10**e] + pows
            for t in product([0] + base, repeat=len(pows)):
                if t[0] == 0: continue
                yield sum(t[i]*pows[i] for i in range(len(t)))
print(list(islice(agen(), 60))) # Michael S. Branicky, Aug 19 2022

a(57)-a(60) from WG Zeist, Aug 31 2012

A124060 T totaler sequence. Number of t's in the American spelling of numbers.

Original entry on oeis.org

0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 3, 2, 2, 2, 2, 3, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1

Offset: 0

Cino Hilliard, Nov 03 2006

			The words "zero" and "one" have no t's, so a(0) = a(1) = 0.
The words "two" and "three" each have one t, so a(2) = a(3) = 1.

Michael S. Branicky, Table of n, a(n) for n = 0..10000

Cf. A005589, A008522.

total(n) = { local(a,i,j,sumt); a=["zero","one","two","three","four","five","six","seven","eight","nine","ten", "eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen", "eghteen","nineteen","twenty","twentyone","twentytwo","twentythree", "twentyfour","twentyfive","twentysix","twentyseven","twentyeight","twentynine", "thirty","thirtyone","thirtytwo","thirtythree","thirtyfour","thirtyfive", "thirtysix","thirtyseven","thirtyeight","thirtynine","forty","fortyone", "fortytwo","fortythree","fortyfour","fortyfive","fortysix","fortyseven", "fortyeight","fortynine","fifty"]; for(i = 1,n, sumt=0; for(j=1,length(a[i]), if(mid(a[i],j,1)=="t",sumt++) ); print1(sumt, ", ") ) }
\\ Get a substring of length n from string str starting at position s in str.
mid(str,s,n) =  { local(v,ln,x,tmp); v =""; tmp = Vec(str); ln=length(tmp); for(x=s,s+n-1, v=concat(v,tmp[x]); ); return(v) }

from num2words import num2words
def a(n): return num2words(n).count('t')
print([a(n) for n in range(87)]) # Michael S. Branicky, Nov 25 2021

Offset corrected by Jon E. Schoenfield, Nov 23 2021

a(51) and beyond from Michael S. Branicky, Nov 25 2021

A095790 Numbers whose name in English contains an "r".

Original entry on oeis.org

3, 4, 13, 14, 23, 24, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 53, 54, 63, 64, 73, 74, 83, 84, 93, 94, 103, 104, 113, 114, 123, 124, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148

Offset: 1

Michael Joseph Halm, Jul 10 2004

A008520 are numbers which contain an "e", A008540 an "f", A011538 a "g", A008536 an "n", A008519 an "o", A008538 an "s", A008522 a "t", A011534 a "u", A011532 a "w", A011536 an "x" and A008553 a "y"

			a(1) = 3 because "three" contains an "r", 0, 1 and 2 do not

Cf. A008520, A008540, A011538, A008536, A008519, A008538, A008522, A011534, A011532, A011536, A008553.

A095798 Numbers whose name in English contains a "v".

Original entry on oeis.org

5, 7, 11, 12, 17, 25, 27, 35, 37, 45, 47, 55, 57, 65, 67, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 85, 87, 95, 97, 105, 107, 111, 112, 117, 125, 127, 135, 137, 145, 147, 155, 157, 165, 167, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 185, 187, 195, 197, 205, 207

Offset: 1

Michael Joseph Halm, Jul 10 2004

A008520 are numbers which contain an "e", A008540 an "f", A011538 a "g", A008536 an "n", A008519 an "o", A008538 an "s", A008522 a "t", A011534 a "u", A011532 a "w", A011536 an "x" and A008553 a "y"

			a(3) = 11 because "eleven" contains a "v" and it is the third number to do so (after "five" and "seven").

Cf. A008520, A008540, A011538, A008536, A008519, A008538, A008522, A011534, A011532, A011536, A008553.

Corrected by Rick L. Shepherd, Jul 10 2004

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions

A008536 Numbers whose American English name contains the letter 'n'.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A008519 Numbers whose American English name contains the letter 'o'.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A008538 Numbers whose American English name contains the letter 's'.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A008540 Numbers whose American English name contains the letter 'f'.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A008553 Numbers whose American English name contains the letter 'y'.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A008523 Numbers that do not contain the letter 't'.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Python

Extensions

A124060 T totaler sequence. Number of t's in the American spelling of numbers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Python

Extensions

A095790 Numbers whose name in English contains an "r".