Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A119643
Inverse of permutation in A119898.
0
6, 3, 7, 1, 8, 4, 10, 5, 9, 2, 51, 52, 43, 48, 49, 45, 50, 47, 46, 44, 97, 31, 65, 15, 73, 39, 89, 57, 81, 23, 98, 32, 66, 16, 74, 40, 90, 58, 82, 24, 99, 33, 67, 17, 75, 41, 91, 59, 83, 25, 94, 28, 62, 12, 70, 36, 86, 54, 78, 20, 100, 34, 68, 18, 76, 42, 92
OFFSET
0,1
COMMENTS
Unfortunately A119898 has an offset of 1. Really these are inverse permutations on the nonnegative integers. See 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.
FORMULA
a(A119898(n)) = n.
EXAMPLE
a(0) = 6 because A119898(6) = 0.
a(10) = 51 because A119898(51) = 10.
MATHEMATICA
f[a_, b_] := Sort@ Table[{StringReverse[ StringReplace[ IntegerName[h, "Words"], {"\[Hyphen]" -> ""}]], h}, {h, a, b}]; u = Last /@ Join[f[0, 9], f[10, 99]]; a = Range[100] 0; Do[a[[1 + u[[x]]]] = x, {x, 99}]; a (* Giovanni Resta, Jun 13 2016 *)
CROSSREFS
Cf. A119898.
Sequence in context: A265179 A215608 A232883 * A187747 A073223 A182549
KEYWORD
nonn,word,less
AUTHOR
Jonathan Vos Post, Aug 05 2006
EXTENSIONS
Data corrected by Giovanni Resta, Jun 13 2016
STATUS
approved