|
%I #12 Jun 13 2016 09:05:41
%S 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,
%T 91,51,81,71,21,31,41,61,95,55,85,75,25,35,45,65,12,19,15,18,17,13,14,
%U 16,10,11,97,57,87,77,27,37,47,67,92,52,82,72,22,32,42,62,94,54,84,74,24
%N 1-digit numbers arranged in alphabetical order of English spelling reversed, then the 2-digit numbers so arranged, then the 3-digit numbers, etc.
%C 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.
%e Eerht, Enin, Eno, Evif, Neves, Orez, Owt, Ruof, Thgie, Xis;
%e 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, ...
%t 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 *)
%Y Cf. A000052, A004740, A019440, A026081, A001058, A057846, A108067, A072991.
%K nonn,word,base,less
%O 1,1
%A _Jonathan Vos Post_, Aug 01 2006
%E Data and example corrected by _Giovanni Resta_, Jun 13 2016
|
