%I #16 Dec 14 2016 16:40:28
%S 1,2,3,5,4,6,7,9,10,15,11,8,12,14,25,21,18,35,13,20,30,27,45,22,33,49,
%T 16,24,28,50,55,75,42,77,17,36,70,63,105,26,125,175,40,60,54,39,65,90,
%U 121,81,44,66,135,99,98,147,91,32,48,56,100,110,245,165,150,143,19,84,154,225,231,34,275,385,72,140,126,51,343,210,539,189,52
%N a(1) = 1, for n > 1, if A079559(n) = 0, a(n) = 2*a(A256992(n)), otherwise a(n) = A003961(a(A256992(n))).
%C A more recursed variant of A279336.
%H Antti Karttunen, <a href="/A279338/b279338.txt">Table of n, a(n) for n = 1..10000</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 A079559(n) = 0 [when n is a term of A055938], a(n) = 2*a(A256992(n)), otherwise a(n) = A003961(a(A256992(n))).
%F As a composition of other permutations:
%F a(n) = A163511(A279341(n)).
%F a(n) = A005940(1+A279343(n)).
%F a(n) = A250246(A279348(n)).
%o (Scheme)
%o (definec (A279338 n) (cond ((= 1 n) n) ((zero? (A079559 n)) (* 2 (A279338 (A256992 n)))) (else (A003961 (A279338 (A256992 n))))))
%Y Inverse: A279339.
%Y Cf. A003961, A055938, A079559, A256992, A278502.
%Y Related or similar permutations: A005940, A163511, A250246, A279336, A279341, A279343, A279348.
%K nonn,look
%O 1,2
%A _Antti Karttunen_, Dec 10 2016