|
%I #6 Mar 07 2016 12:30:56
%S 1,3,2,7,6,5,4,16,13,11,15,10,9,26,12,8,22,19,49,25,18,17,38,40,20,31,
%T 14,35,30,72,46,28,39,29,24,27,57,59,87,33,47,32,23,52,45,21,103,68,
%U 71,43,58,44,60,37,41,83,186,85,123,50,69,48,82,56,36,76,53,67,34,144,128,98,101,143,65,84,66,63,86,55,106,61,118,253,42,121,169
%N Permutation of natural numbers: a(1) = 1, a(A179016(1+n)) = A233271(1+a(n)), a(A213713(n)) = A269390(a(n)), where A179016, A233271 are the infinite trunks of binary beanstalk and inverted binary beanstalk and A213713, A269390 are their complements.
%H Antti Karttunen, <a href="/A269398/b269398.txt">Table of n, a(n) for n = 1..6089</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(1) = 1, for n > 1, if A213719(n) = 1 [when n is in A179016] a(n) = A233271(1+a(A269371(n)-1)), otherwise a(n) = 1 + A269390(a(n-A269371(n))).
%F As a composition of related permutations:
%F a(n) = A269392(A269401(n)).
%o (Scheme, with memoization-macro definec)
%o (definec (A269398 n) (cond ((<= n 1) n) ((zero? (A213719 n)) (A269390 (A269398 (- n (A269371 n))))) (else (A233271 (+ 1 (A269398 (+ -1 (A269371 n))))))))
%Y Inverse: A269397
%Y Cf. A179016, A213713, A213719, A233271, A269390.
%Y Related or similar permutations: A269392, A269401, A269402.
%Y Cf. also A233270.
%K nonn,base
%O 1,2
%A _Antti Karttunen_, Mar 05 2016
|
