|
|
A119898
|
|
1-digit numbers arranged in alphabetical order of English spelling reversed, then the 2-digit numbers so arranged, then the 3-digit numbers, etc.
|
|
1
|
|
|
3, 9, 1, 5, 7, 0, 2, 4, 8, 6, 93, 53, 83, 73, 23, 33, 43, 63, 99, 59, 89, 79, 29, 39, 49, 69, 91, 51, 81, 71, 21, 31, 41, 61, 95, 55, 85, 75, 25, 35, 45, 65, 12, 19, 15, 18, 17, 13, 14, 16, 10, 11, 97, 57, 87, 77, 27, 37, 47, 67, 92, 52, 82, 72, 22, 32, 42, 62, 94, 54, 84, 74, 24
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Analog of A000052 where the alphabetical order is applied not to English name of integer but to the English name whose letters are then reversed.
|
|
LINKS
|
|
|
EXAMPLE
|
Eerht, Enin, Eno, Evif, Neves, Orez, Owt, Ruof, Thgie, Xis;
Eerhtytenin, Eerhtytfif, Eerhtythgie, Eerhtytneves, Eerhtytnewt, Eerhtytriht, Eerhtytrof, Eerhtytxis, Eninytenin, Eninytfif, Eninythgie, Eninytneves, Eninytnewt, Eninytriht, Eninytrof, Eninytxis, Enoytenin, Enoytfif, Enoythgie, Enoytneves, Enoytnewt, Enoytriht, Enoytrof, Enoytxis, Evifytenin, Evifytfif, ...
|
|
MATHEMATICA
|
f[a_, b_] := Sort@ Table[{ StringReverse[ StringReplace[ IntegerName[h, "Words"], {"\[Hyphen]" -> ""}]], h}, {h, a, b}]; Last /@ Join[f[0, 9], f[10, 99]] (* Giovanni Resta, Jun 13 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,word,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|