cp's OEIS Frontend

A276343 Permutation of natural numbers: a(1) = 1, a(A087686(1+n)) = A005187(1+a(n)), a(A088359(n)) = A055938(a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001.

%I A276343 #12 Sep 04 2016 17:21:30
%S A276343 1,3,2,7,6,5,4,15,14,13,12,11,9,10,8,31,30,29,28,27,26,24,20,25,21,23,
%T A276343 22,17,18,19,16,63,62,61,60,59,58,57,55,51,43,56,52,44,54,48,53,50,45,
%U A276343 36,47,37,39,49,40,41,46,42,33,34,35,38,32,127,126,125,124,123,122,121,120,118,114,106,90,119,115,107,91,117,111,99
%N A276343 Permutation of natural numbers: a(1) = 1, a(A087686(1+n)) = A005187(1+a(n)), a(A088359(n)) = A055938(a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001.
%H A276343 Antti Karttunen, <a href="/A276343/b276343.txt">Table of n, a(n) for n = 1..8191</a>
%H A276343 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H A276343 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A276343 a(1) = 1; for n > 1, if A093879(n-1) = 0 [when n is in A087686], a(n) = A005187(1+a(A080677(n)-1)), otherwise [when n is in A088359], a(n) = A055938(a(A004001(n)-1)).
%F A276343 As a composition of other permutations:
%F A276343 a(n) = A233276(A267111(n)).
%F A276343 a(n) = A233278(A276441(n)).
%o A276343 (Scheme)
%o A276343 (definec (A276343 n) (cond ((< n 2) n) ((zero? (A093879 (- n 1))) (A005187 (+ 1 (A276343 (+ -1 (A080677 n)))))) (else (A055938 (A276343 (+ -1 (A004001 n)))))))
%Y A276343 Inverse: A276344.
%Y A276343 Cf. A004001, A005187, A055938, A080677, A087686, A088359, A093879.
%Y A276343 Similar or related permutations: A233276, A233278, A267111, A276345, A276441.
%Y A276343 Compare also to the scatter-plots of A276443 and A276445.
%K A276343 nonn,base,look
%O A276343 1,2
%A A276343 _Antti Karttunen_, Sep 03 2016