login
Inverse permutation to A113963.
3

%I #6 Jun 22 2022 00:43:24

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

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

%U 46,51,55,47,58,52,60,54,56,59,66,57,61,64,68,62,71,65

%N Inverse permutation to A113963.

%H Reinhard Zumkeller, <a href="/A246433/b246433.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 a246433 = (+ 1) . fromJust . (`elemIndex` a113963_list)

%Y Cf. A113963, A246704 (fixed points).

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Sep 04 2014