A244322 - OEIS

%I #11 Jul 23 2014 10:20:33

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

%T 26,31,29,30,28,32,35,34,37,33,36,40,38,45,43,47,49,50,52,55,54,41,39,

%U 44,42,46,48,51,53,64,61,60,57,62,58,59,56,66,63,69,71,68,70,75

%N Permutation of natural numbers: a(1)=1, a(2n) = A244991(a(n)), a(2n+1) = A244990(1+a(n)).

%H Antti Karttunen, <a href="/A244322/b244322.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, a(2n) = A244991(a(n)), a(2n+1) = A244990(1+a(n)).

%F For all n >= 1, A244992(a(n)) = 1 - A000035(n).

%o (Scheme, with memoization macro definec)

%o (definec (A244322 n) (cond ((= 1 n) 1) ((even? n) (A244991 (A244322 (/ n 2)))) (else (A244990 (+ 1 (A244322 (/ (- n 1) 2)))))))

%Y Inverse: A244321.

%Y Cf. A244990, A244991, A244992.

%Y Similar entanglement permutations: A227413, A237126, A243288, A243344, A243346.

%K nonn

%O 1,2

%A _Antti Karttunen_, Jul 22 2014