login
A160661
Numbers that have a "t" in the middle of their names.
4
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
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 A377160 A046417
KEYWORD
nonn,word
AUTHOR
Claudio Meller, May 22 2009
EXTENSIONS
Corrected, edited, and extended by Jon E. Schoenfield, Jul 29 2019
STATUS
approved