login
Inverse permutation to A218252.
2

%I #6 May 05 2015 13:59:20

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

%T 29,28,30,26,31,32,35,33,36,34,39,37,40,38,44,41,46,45,47,42,48,43,52,

%U 49,54,53,55,50,58,56,59,51,61,57,62,60,63,64,67,65,68,66,71,69,72,70,76,73,78,77,79,74,80,75,84,81

%N Inverse permutation to A218252.

%H Antti Karttunen, <a href="/A257683/b257683.txt">Table of n, a(n) for n = 1..8192</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 A218252 is defined with defineperm1-macro, it will automatically cache also the inverse values, which are then available with negative arguments:

%o (define (A257683 n) (A218252 (- n)))

%Y Inverse: A218252.

%K nonn

%O 1,2

%A _Antti Karttunen_, May 04 2015