A160661 Numbers that have a "t" in the middle of their names.

15, 16, 21, 22, 26, 31, 32, 36, 74, 75, 79, 81, 82, 86, 91, 92, 96, 123, 127, 128, 133, 137, 138, 223, 227, 228, 233, 237, 238, 623, 627, 628, 633, 637, 638, 1300, 1813, 1814, 1818, 1819, 1841, 1842, 1846, 1851, 1852, 1856, 1861, 1862, 1866, 2300, 2813, 2814

Offset

1,1

Links

Table of n, a(n) for n=1..52.

Example

In the spelling of the name of each term, with spaces and hyphens omitted, each name has an odd number of letters, and the middle letter is "t"; e.g.,
    15 =             fifTeen
    16 =             sixTeen
    21 =            twenTyone
    22 =            twenTytwo
    31 =            thirTysix
    74 =           sevenTyfour
    81 =            eighTyone
    91 =            nineTytwo
   123 =      onehundredTwentythree
  1300 =     onethousandThreehundred
  1813 = onethousandeighThundredthirteen

Mathematica

ok[n_] := Block[{s = StringReplace[ IntegerName[n, "Words"], ", " | " " | "\[Hyphen]" -> ""], k}, k = StringLength[s]; OddQ[k] && StringTake[s, {(k + 1)/2}] == "t"]; Select[Range[3000], ok] (* Giovanni Resta, Jul 30 2019 *)

Crossrefs

Sequence in context: A039689 A332515 A063530 * A342941 A046417 A193566

Adjacent sequences: A160658 A160659 A160660 * A160662 A160663 A160664

Keyword

nonn,word

Author

Claudio Meller, May 22 2009

Extensions

Corrected, edited, and extended by Jon E. Schoenfield, Jul 29 2019

Status

approved