cp's OEIS Frontend

A255833 Index i such that A166133(i)=n, or 0 if no such i exists.

%I A255833 #26 May 18 2019 14:05:03
%S A255833 1,2,4,3,8,7,6,5,12,11,10,9,16,15,14,13,21,20,19,18,17,24,23,22,29,28,
%T A255833 27,26,40,39,38,37,36,35,34,33,32,31,30,41,42,43,44,45,46,47,48,49,50,
%U A255833 51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,25
%N A255833 Index i such that A166133(i)=n, or 0 if no such i exists.
%C A255833 If A166133 is a permutation, as conjectured, then this is the inverse permutation.
%H A255833 M. F. Hasler, <a href="/A255833/b255833.txt">Table of n, a(n) for n = 1..10000</a>
%H A255833 Ray Chandler, <a href="/A255833/a255833.txt">Table of n, a(n) for n=1..3743853</a> (55 MB)
%o A255833 (PARI) a(n)=for(i=1,#a166133,a166133[i]==n&&return(i)) \\ assumes a166133 defined as a vector, e.g., via {c=0; a166133=apply(t->eval(concat(Vec(t)[1+#Str(c++) .. -1])), readstr("/tmp/b166133.txt"))}
%o A255833 (Haskell)
%o A255833 import Data.List (elemIndex); import Data.Maybe (fromJust)
%o A255833 a255833 = (+ 1) . fromJust . (`elemIndex` a166133_list)
%o A255833 -- _Reinhard Zumkeller_, Apr 02 2015
%Y A255833 Cf. A166133, A256561, A256563.
%K A255833 nonn
%O A255833 1,2
%A A255833 _M. F. Hasler_, Apr 01 2015
%E A255833 Definition simplified by _Franklin T. Adams-Watters_, Apr 01 2015