A269852 Permutation of natural numbers: a(1) = 0, after which, a(2n) = A087686(1+a(n)), a(2n+1) = A088359(a(A268674(2n+1))).

0, 1, 3, 2, 6, 7, 11, 4, 5, 14, 20, 15, 37, 26, 13, 8, 70, 12, 135, 30, 9, 47, 264, 31, 10, 85, 25, 57, 521, 29, 1034, 16, 28, 156, 23, 27, 2059, 292, 46, 62, 4108, 21, 8205, 105, 17, 557, 16398, 63, 19, 24, 22, 191, 32783, 56, 18, 120, 55, 1079, 65552, 61, 131089, 2114, 84, 32, 44, 60, 262162, 348, 59, 53

Offset

1,3

Comments

Note the indexing: Domain starts from 1, range from 0.

Links

Table of n, a(n) for n=1..70.

Index entries for Hofstadter-type sequences

Index entries for sequences that are permutations of the natural numbers

Index entries for sequences generated by sieves

Formula

a(1) = 0; after which, for even n, a(n) = A087686(1+a(n/2)), and for odd n, a(n) = A088359(a(A268674(n))).

Other identities. For all n >= 1:

a(2^n) = 2^(n-1).

As a composition of other permutations:

a(n) = A267112(A252756(n)).

Prog

(Scheme, with memoization-macro definec)
(definec (A269852 n) (cond ((= n 1) 0) ((even? n) (A087686 (+ 1 (A269852 (/ n 2))))) (else (A088359 (A269852 (A268674 n))))))

Crossrefs

Inverse: A269851.

Cf. A004001, A087686, A088359, A268674.

Related or similar permutations: A252756, A267112, A269856.

Sequence in context: A021310 A230267 A286226 * A329691 A293204 A273344

Adjacent sequences: A269849 A269850 A269851 * A269853 A269854 A269855

Keyword

nonn

Author

Antti Karttunen, Mar 07 2016

Status

approved