A279348 a(1) = 1, for n > 1, if A079559(n) = 0, a(n) = 2*a(A256992(n)), otherwise a(n) = A250469(a(A256992(n))).

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..8192

Index entries for sequences that are permutations of the natural numbers

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.

Cf. A005187, A055938, A079559, A250469, A256992.

Related or similar permutations: A250245, A252753, A252755, A279338, A279341, A279343.

Sequence in context: A275375 A225047 A279338 * A274500 A123917 A344682

Adjacent sequences: A279345 A279346 A279347 * A279349 A279350 A279351

Keyword

nonn

Author

Antti Karttunen, Dec 12 2016

Status

approved