|
%I #12 Jun 21 2014 14:11:45
%S 1,2,3,5,4,7,11,6,13,9,8,17,19,10,23,29,12,15,31,14,37,41,16,25,21,18,
%T 43,47,20,53,59,22,27,35,24,61,67,26,71,33,28,73,49,30,79,83,32,39,89,
%U 34,97,101,36,55,45,38,103,107,40,109,113,42,51,65,44,127,77,46,131,57
%N Inverse permutation to sequence A126917.
%H Antti Karttunen, <a href="/A126918/b126918.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 (Scheme, requiring also defineperm1-macro from Antti Karttunen's IntSeq-library)
%o (define (A126918 n) (A126917 (- n))) ;; When A126917 is defined with defineperm1-macro, it will automatically cache also the inverse values, which are then available with negative arguments.
%o ;; _Antti Karttunen_, Jun 20 2014
%Y Cf. A126917, A243069.
%K nonn
%O 1,2
%A _Leroy Quet_, Dec 31 2006
%E Extended by _Ray Chandler_, Jan 04 2007
|
