|
%I #12 Mar 20 2022 21:42:43
%S 1,2,4,3,5,8,6,9,7,10,11,16,12,17,13,18,14,19,15,20,23,21,24,22,25,32,
%T 26,33,27,34,28,35,29,36,30,37,31,46,38,47,39,48,40,49,41,50,42,51,43,
%U 52,44,53,45,54,56,55,57,67,58,68,59,69,60,70,61,71,62
%N Inverse permutation to A093506.
%H Reinhard Zumkeller, <a href="/A187790/b187790.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)
%o import Data.Maybe (fromJust)
%o a187790 = (+ 1) . fromJust . (`elemIndex` a093506_list)
%Y Cf. A187792 (fixed points).
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Jan 06 2013
|
