|
%I #6 Aug 18 2014 00:53:52
%S 1,2,4,3,8,6,5,16,12,10,7,9,32,24,20,14,11,18,15,64,48,40,13,28,22,36,
%T 30,21,17,27,25,128,96,26,19,80,56,44,72,60,23,42,34,33,54,50,35,256,
%U 45,192,29,38,52,160,112,88,144,39,31,120,46,84,68,66,108,100,37,70,55,49,512,63,51,90,58,384,41
%N Inverse permutation to sequence A246165.
%H Antti Karttunen, <a href="/A246166/b246166.txt">Table of n, a(n) for n = 1..1228</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%o (Scheme, requiring also defineperm1-macro from _Antti Karttunen_'s IntSeq-library)
%o ;; When A246165 is defined with defineperm1-macro, it will automatically cache also the inverse values, which are then available with negative arguments. Values of A246165 have to be computed first, for up to some value, before this can be used:
%o (define (A246166 n) (A246165 (- n)))
%Y Inverse: A246165.
%Y Similar permutations: A119436, A126918.
%K nonn
%O 1,2
%A _Antti Karttunen_, Aug 17 2014
|
