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

Author

Antti Karttunen, Sep 03 2016

Keywords

• nonn
• base

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

Crossrefs

Inverse: A276346.

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

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

Programs

Scheme

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

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)).