login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A279348
a(1) = 1, for n > 1, if A079559(n) = 0, a(n) = 2*a(A256992(n)), otherwise a(n) = A250469(a(A256992(n))).
3
1, 2, 3, 5, 4, 6, 7, 9, 10, 15, 11, 8, 12, 14, 25, 27, 18, 35, 13, 20, 30, 21, 33, 22, 39, 49, 16, 24, 28, 50, 65, 51, 54, 77, 17, 36, 70, 57, 87, 26, 55, 85, 40, 60, 42, 63, 95, 66, 121, 45, 44, 78, 69, 81, 98, 147, 119, 32, 48, 56, 100, 130, 125, 159, 102, 143, 19, 108, 154, 105, 207, 34, 145, 215, 72, 140, 114, 75, 91, 174, 133, 117, 52
OFFSET
1,2
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) = A250469(a(A256992(n))).
As a composition of other permutations:
a(n) = A250245(A279338(n)).
a(n) = A252753(A279343(n)).
a(n) = A252755(A279341(n)).
PROG
(Scheme) (definec (A279348 n) (cond ((= 1 n) n) ((zero? (A079559 n)) (* 2 (A279348 (A256992 n)))) (else (A250469 (A279348 (A256992 n))))))
CROSSREFS
Inverse: A279349.
Related or similar permutations: A250245, A252753, A252755, A279338, A279341, A279343.
Sequence in context: A275375 A225047 A279338 * A274500 A123917 A344682
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 12 2016
STATUS
approved