Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A279338
a(1) = 1, for n > 1, if A079559(n) = 0, a(n) = 2*a(A256992(n)), otherwise a(n) = A003961(a(A256992(n))).
9
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, 16, 24, 28, 50, 55, 75, 42, 77, 17, 36, 70, 63, 105, 26, 125, 175, 40, 60, 54, 39, 65, 90, 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
OFFSET
1,2
COMMENTS
A more recursed variant of A279336.
FORMULA
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))).
As a composition of other permutations:
a(n) = A163511(A279341(n)).
a(n) = A005940(1+A279343(n)).
a(n) = A250246(A279348(n)).
PROG
(Scheme)
(definec (A279338 n) (cond ((= 1 n) n) ((zero? (A079559 n)) (* 2 (A279338 (A256992 n)))) (else (A003961 (A279338 (A256992 n))))))
CROSSREFS
Inverse: A279339.
Related or similar permutations: A005940, A163511, A250246, A279336, A279341, A279343, A279348.
Sequence in context: A279336 A275375 A225047 * A279348 A274500 A123917
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Dec 10 2016
STATUS
approved