login
Inverse permutation to A054424.
5

%I #9 Aug 20 2013 05:12:39

%S 1,2,3,4,7,8,5,6,13,19,14,15,20,16,9,10,23,34,29,35,50,43,24,25,44,53,

%T 38,30,39,26,11,12,33,59,48,66,97,84,49,60,108,132,98,86,109,75,36,37,

%U 76,112,89,99,135,113,61,54,91,100,69,55,62,40,17,18,47,82,73,105,154

%N Inverse permutation to A054424.

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%F a(j) = nthmember(j, A054424)

%p nthmember := proc(e,l) local k; if(member(e,l,'k')) then RETURN(k) else RETURN(0); fi; end;

%t a[n_] := If[p = Position[A054424, n]; p != {}, p[[1, 1]], 0]; (* _Jean-François Alcover_, Aug 20 2013 *)

%K nonn

%O 1,2

%A Antti Karttunen