login
A276446
Permutation of natural numbers: a(1) = 1; a(A000069(1+n)) = A088359(a(n)), a(A001969(1+n)) = A087686(1+a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001, and A000069 & A001969 are odious & evil numbers.
4
1, 3, 2, 6, 7, 4, 5, 11, 14, 15, 13, 8, 9, 10, 12, 20, 26, 30, 25, 31, 28, 23, 29, 16, 17, 18, 21, 19, 24, 27, 22, 37, 47, 57, 46, 62, 55, 44, 56, 63, 59, 50, 60, 41, 53, 61, 52, 32, 33, 34, 38, 35, 42, 48, 39, 36, 45, 54, 43, 58, 49, 40, 51, 70, 85, 105, 84, 120, 103, 82, 104, 126, 117, 98, 118, 79, 101, 119, 100, 127, 122, 108, 123, 89
OFFSET
1,2
FORMULA
a(1) = 1, and for n > 1, if A010060(n) = 1 [when n is one of the odious numbers, A000069], a(n) = A088359(a(A115384(n)-1)), otherwise a(n) = A087686(1+a(A245710(n))).
As a composition of other permutations:
a(n) = A267112(A006068(n)).
PROG
(Scheme)
(definec (A276446 n) (cond ((< n 2) n) ((zero? (A010060 n)) (A087686 (+ 1 (A276446 (A245710 n))))) (else (A088359 (A276446 (- (A115384 n) 1))))))
CROSSREFS
Inverse: A276445.
Similar or related permutations: A006068, A267112, A276444.
Sequence in context: A023897 A267100 A178754 * A100527 A276445 A063946
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 03 2016
STATUS
approved