A113233 - OEIS

%I #17 Apr 26 2022 08:28:54

%S 1,2,4,3,6,9,16,5,10,7,20,12,26,14,28,8,13,11,22,19,24,30,39,17,33,36,

%T 41,44,51,54,76,15,18,25,43,21,37,34,48,23,31,60,80,46,57,85,104,27,

%U 66,62,71,64,90,83,109,68,88,100,102,74,112,107,162,29,35,32,45,42,61,67

%N Inverse permutation to A109812.

%H Reinhard Zumkeller, <a href="/A113233/b113233.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%F A113234(n) = a(a(n)).

%o (Haskell)

%o import Data.List (elemIndex); import Data.Maybe (fromJust)

%o a113233 = (+ 1) . fromJust . (`elemIndex` a109812_list)

%o -- _Reinhard Zumkeller_, Sep 15 2014

%Y Cf. A109812, A113232, A113234, A305370.

%K nonn,base

%O 1,2

%A _Reinhard Zumkeller_, Oct 19 2005

%E a(63) corrected by _Reinhard Zumkeller_, Sep 15 2014