A119643 Inverse of permutation in A119898.

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.

Links

Table of n, a(n) for n=0..66.

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

Adjacent sequences: A119640 A119641 A119642 * A119644 A119645 A119646

Keyword

nonn,word,less

Author

Jonathan Vos Post, Aug 05 2006

Extensions

Data corrected by Giovanni Resta, Jun 13 2016

Status

approved