%I #11 Mar 25 2016 23:00:50

%S 1,2,3,4,5,6,8,10,7,9,12,11,16,20,13,14,17,18,24,22,32,40,26,28,34,21,

%T 36,48,44,15,19,64,25,23,80,52,56,68,42,33,41,72,96,88,27,30,38,29,35,

%U 37,128,49,50,46,160,104,112,136,84,66,45,82,144,192,65,176,81,53,54,57,60,76,58,70,74,256,98,69,100,43,92

%N Permutation of natural numbers: a(1) = 1, a(A269389(1+n)) = 2 * a(n), a(A269399(n)) = 1 + 2*a(n).

%H Antti Karttunen, <a href="/A270193/b270193.txt">Table of n, a(n) for n = 1..10001</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 A137264(6+n) = 0 [when n is in A269399], a(n) = 1 + 2*a(n-A269362(n)), otherwise a(n) = 2 * a(A269362(n)-1).

%o (Scheme, with memoization-macro definec)

%o (definec (A270193 n) (cond ((= 1 n) n) ((not (zero? (A137264 (+ 6 n)))) (* 2 (A270193 (+ -1 (A269362 n))))) (else (+ 1 (* 2 (A270193 (- n (A269362 n))))))))

%Y Inverse: A270194.

%Y Cf. A137264, A269362, A269389, A269399.

%Y Similar permutations: A270199, A270201 (compare the scatter plots).

%K nonn,look

%O 1,2

%A _Antti Karttunen_, Mar 16 2016