A190017 Inverse permutation to A190016: lexicographical ordering of integers 1 .. 10^4.

1, 1113, 2224, 3335, 4446, 5557, 6668, 7779, 8890, 2, 114, 225, 336, 447, 558, 669, 780, 891, 1002, 1114, 1225, 1336, 1447, 1558, 1669, 1780, 1891, 2002, 2113, 2225, 2336, 2447, 2558, 2669, 2780, 2891, 3002, 3113, 3224, 3336, 3447, 3558, 3669, 3780, 3891

Offset

1,2

Comments

a(A190016(n)) = A190016(a(n)) = n.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 (full sequence)

Prog

(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a190017 n = a190017_list !! (n-1)
a190017_list =
   map (succ . fromJust . (`elemIndex` a190016_list)) [1..10000]
(PARI) A190017=vecsort(A190016=vecsort(vector(10^4, n, Str(n)), , 1), , 1) \\ M. F. Hasler, Oct 26 2019

Crossrefs

Cf. A190016 (inverse: integers 1..10^4 in lexicographical order).

Cf. A119589, A119590 (integers 1..100 in lexicographical order, and inverse).

Sequence in context: A066484 A199982 A151951 * A027622 A259295 A260103

Adjacent sequences: A190014 A190015 A190016 * A190018 A190019 A190020

Keyword

nonn,base,fini,full

Author

Reinhard Zumkeller, May 06 2011

Status

approved