

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



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



KEYWORD

nonn,word


AUTHOR



EXTENSIONS



STATUS

approved



