login
A276346
Permutation of natural numbers: a(1) = 1; a(A005187(1+n)) = A088359(a(n)), a(A055938(n)) = A087686(1+a(n)), where A088359 & A087686 = numbers that occur only once & more than once in A004001.
5
1, 2, 3, 5, 4, 7, 6, 10, 12, 9, 13, 8, 15, 14, 11, 19, 24, 22, 18, 27, 21, 23, 17, 29, 28, 25, 16, 31, 30, 26, 20, 36, 45, 43, 40, 54, 51, 35, 49, 42, 39, 41, 58, 48, 53, 34, 52, 38, 50, 44, 61, 60, 33, 59, 56, 55, 46, 32, 63, 62, 57, 47, 37, 69, 83, 81, 78, 102, 99, 74, 97, 93, 91, 68, 116, 112, 80, 88, 77, 109, 73, 75, 96, 90
OFFSET
1,2
FORMULA
a(1)=1; for n > 1, if A079559(n)=1 [when n is in A005187], a(n) = A088359(a(A213714(n)-1)), otherwise a(n) = A087686(1+a(A234017(n))).
As a composition of other permutations:
a(n) = A276442(A233275(n)).
a(n) = A267112(A233277(n)).
PROG
(Scheme)
(definec (A276346 n) (cond ((< n 2) n) ((not (zero? (A079559 n))) (A088359 (A276346 (- (A213714 n) 1)))) (else (A087686 (+ 1 (A276346 (A234017 n)))))))
CROSSREFS
Inverse: A276345.
Similar or related permutations: A233275, A233277, A267112, A276344, A276442.
Sequence in context: A064707 A335535 A372043 * A123882 A256271 A293977
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 03 2016
STATUS
approved