login
Inverse permutation to A187098.
2

%I #11 Mar 20 2022 21:42:40

%S 1,2,3,4,5,6,7,9,8,11,10,14,12,13,15,18,16,17,19,21,20,25,22,23,24,27,

%T 26,30,28,29,31,33,32,40,34,35,39,37,36,41,44,38,42,45,43,48,50,46,47,

%U 51,49,55,52,57,56,53,54,59,61,58,65,63,60,84,62,64,67,69,68,66,70,71,72,74,73,77,75,76,82,79

%N Inverse permutation to A187098.

%H Reinhard Zumkeller, <a href="/A187099/b187099.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>

%o (Haskell)

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

%o a187099 = (+ 1) . fromJust . (`elemIndex`a187098_list)

%o -- _Reinhard Zumkeller_, Aug 04 2015

%Y Cf. A187098.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Mar 04 2011