login
Inverse permutation to A190134.
2

%I #10 Jul 13 2013 12:04:08

%S 1,4370,6452,6725,6998,7271,7544,7817,8090,8363,8636,8909,9182,9455,

%T 9728,2,275,548,821,1094,1367,1640,1913,2186,2459,2732,3005,3278,3551,

%U 3824,4097,4371,4644,4917,5190,5463,5736,6009,6282,6316,6333,6350,6367,6384

%N Inverse permutation to A190134.

%C a(A190134(n)) = A190134(a(n)) = n.

%H Reinhard Zumkeller, <a href="/A190135/b190135.txt">Table of n, a(n) for n = 1..10000</a> (full sequence)

%o (Haskell)

%o import Data.List (elemIndex)

%o import Data.Maybe (fromJust)

%o a190135 n = a190135_list !! (n-1)

%o a190135_list =

%o map (succ . fromJust . (`elemIndex` a190134_list)) [1..10000]

%K nonn,base,fini,full

%O 1,2

%A _Reinhard Zumkeller_, May 06 2011