A276345 Permutation of natural numbers: a(1) = 1, a(A087686(1+n)) = A055938(a(n)), a(A088359(n)) = A005187(1+a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001.

1, 2, 3, 5, 4, 7, 6, 12, 10, 8, 15, 9, 11, 14, 13, 27, 23, 19, 16, 31, 21, 18, 22, 17, 26, 30, 20, 25, 24, 29, 28, 58, 53, 46, 38, 32, 63, 48, 41, 35, 42, 40, 34, 50, 33, 57, 62, 44, 39, 49, 37, 47, 45, 36, 56, 55, 61, 43, 54, 52, 51, 60, 59, 121, 113, 104, 89, 74, 64, 127, 108, 95, 81, 70, 82, 93, 79, 67, 98, 77, 66, 112, 65, 120

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) = A055938(a(A080677(n)-1)), otherwise [when n is in A088359], a(n) = A005187(1+a(A004001(n)-1)).

As a composition of other permutations:

a(n) = A233276(A276441(n)).

a(n) = A233278(A267111(n)).

Prog

(Scheme)
(definec (A276345 n) (cond ((< n 2) n) ((zero? (A093879 (- n 1))) (A055938 (A276345 (+ -1 (A080677 n))))) (else (A005187 (+ 1 (A276345 (+ -1 (A004001 n))))))))

Crossrefs

Inverse: A276346.

Cf. A004001, A005187, A055938, A080677, A087686, A088359, A093879.

Similar or related permutations: A233276, A233278, A267111, A276343, A276441.

Sequence in context: A210882 A117120 A181095 * A257455 A328971 A127515

Adjacent sequences: A276342 A276343 A276344 * A276346 A276347 A276348

Keyword

nonn,base

Author

Antti Karttunen, Sep 03 2016

Status

approved