login
A190017
Inverse permutation to A190016: lexicographical ordering of integers 1 .. 10^4.
5
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
KEYWORD
nonn,base,fini,full
AUTHOR
Reinhard Zumkeller, May 06 2011
STATUS
approved