|
%I #5 Feb 09 2014 16:11:56
%S 1,3,5,2,7,4,9,6,8,10,11,12,13,14,16,18,15,20,22,24,26,28,17,30,19,32,
%T 34,36,21,38,40,42,44,46,48,50,23,52,54,56,25,58,27,60,62,64,29,66,68,
%U 70,72,74,31,76,78,80,82,84,86,88,33,90,92,94,96,98,35
%N Inverse permutation to A237056.
%H Reinhard Zumkeller, <a href="/A237058/b237058.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 a237058 = (+ 1) . fromJust . (`elemIndex` a237056_list)
%K nonn
%O 1,2
%A _Antti Karttunen_ and _Reinhard Zumkeller_, Feb 04 2014
|
