login
Inverse permutation to A175498.
2

%I #4 Apr 25 2015 10:06:38

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

%T 35,20,37,33,39,24,43,26,47,28,41,49,32,45,30,51,53,55,57,36,61,34,38,

%U 64,59,40,66,68,72,44,70,76,42,48,74,78,80,46,50,84,82

%N Inverse permutation to A175498.

%H Reinhard Zumkeller, <a href="/A257465/b257465.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 a257465 = (+ 1) . fromJust . (`elemIndex` a175498_list)

%Y Cf. A175498.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Apr 25 2015