A276445 Permutation of natural numbers: a(1) = 1, a(A087686(n)) = A001969(1+a(n-1)), a(A088359(n)) = A000069(1+a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001, and A000069 & A001969 are odious & evil numbers.

1, 3, 2, 6, 7, 4, 5, 12, 13, 14, 8, 15, 11, 9, 10, 24, 25, 26, 28, 16, 27, 31, 22, 29, 19, 17, 30, 21, 23, 18, 20, 48, 49, 50, 52, 56, 32, 51, 55, 62, 44, 53, 59, 38, 57, 35, 33, 54, 61, 42, 63, 47, 45, 58, 37, 39, 34, 60, 41, 43, 46, 36, 40, 96, 97, 98, 100, 104, 112, 64, 99, 103, 110, 124, 88, 101, 107, 118, 76, 105, 115, 70

Offset

1,2

Links

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

Index entries for sequences related to binary expansion of n

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1; for n > 1, if A093879(n-1) = 0 [when n is in A087686], a(n) = A001969(1+a(A080677(n)-1)), otherwise [when n is in A088359], a(n) = A000069(1+a(A004001(n)-1)).

As a composition of other permutations:

a(n) = A003188(A267111(n)).

Prog

(Scheme)
(definec (A276445 n) (cond ((< n 2) n) ((zero? (A093879 (- n 1))) (A001969 (+ 1 (A276445 (+ -1 (A080677 n)))))) (else (A000069 (+ 1 (A276445 (+ -1 (A004001 n))))))))

Crossrefs

Inverse: A276446.

Cf. A000069, A001969, A004001, A080677, A087686, A088359, A093879.

Similar or related permutations: A003188, A267111, A276443 (compare the scatter plots).

Sequence in context: A178754 A276446 A100527 * A063946 A154441 A154446

Adjacent sequences: A276442 A276443 A276444 * A276446 A276447 A276448

Keyword

nonn,base,look

Author

Antti Karttunen, Sep 03 2016

Status

approved