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
Examples
a(0) = 6 because A119898(6) = 0. a(10) = 51 because A119898(51) = 10.
Crossrefs
Cf. A119898.
Programs
-
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 *)
Formula
a(A119898(n)) = n.
Extensions
Data corrected by Giovanni Resta, Jun 13 2016
Comments