%I #13 Dec 14 2015 15:00:53
%S 1,2,3,4,7,6,5,8,9,10,17,16,11,14,13,12,15,18,19,22,21,20,23,24,29,32,
%T 31,28,25,26,27,36,33,30,35,40,41,34,37,38,43,42,39,48,47,54,51,44,45,
%U 50,55,46,49,52,53,56,57,64,69,72,59,62,67,66,61,60,71,68,63,58,73,70
%N Inverse of A055265, assuming it is a permutation, as conjectured.
%H T. D. Noe, <a href="/A117922/b117922.txt">Table of n, a(n) for n = 1..1000</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 a117922 = (+ 1) . fromJust . (`elemIndex` a055265_list)
%o -- _Reinhard Zumkeller_, Feb 14 2013
%Y A117924(n) = a(a(n)); A117925 lists fixed points.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Apr 03 2006
%E Edited by _M. F. Hasler_, Dec 14 2015
|