|
%I #8 Dec 12 2016 09:12:35
%S 1,2,3,5,4,6,7,12,8,9,11,13,19,14,10,27,35,17,67,20,16,24,131,28,15,
%T 40,22,29,259,21,515,58,25,72,18,36,1027,136,46,43,2051,33,4099,51,23,
%U 264,8195,59,26,30,78,83,16387,45,31,60,142,520,32771,44,65539,1032,38,121,47,52,131075,147,270,37,262147,75,524291,2056,32,275,34,93
%N a(1) = 1; for n > 1, if n is even, a(n) = A055938(a(n/2)), otherwise a(n) = A005187(a(A064989(n))).
%C A more recursed variant of A279337.
%H Antti Karttunen, <a href="/A279339/b279339.txt">Table of n, a(n) for n = 1..141</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 n is even, a(n) = A055938(a(n/2)), otherwise a(n) = A005187(a(A064989(n))).
%F As a composition of other permutations:
%F a(n) = A279342(A243071(n)).
%F a(n) = A279344(A156552(n)).
%o (Scheme)
%o (definec (A279339 n) (cond ((= 1 n) n) ((even? n) (A055938 (A279339 (/ n 2)))) (else (A005187 (A279339 (A064989 n))))))
%Y Inverse: A279338.
%Y Cf. A005187, A055938, A064989.
%Y Related or similar permutations: A156552, A243071, A279337, A279342, A279344.
%K nonn
%O 1,2
%A _Antti Karttunen_, Dec 10 2016
|
