A268670 a(n) = A006068(A268669(n)).

1, 3, 1, 7, 1, 3, 5, 15, 5, 3, 13, 7, 9, 11, 1, 31, 1, 11, 29, 7, 25, 27, 9, 15, 17, 19, 5, 23, 13, 3, 21, 63, 21, 3, 61, 23, 57, 59, 13, 15, 49, 51, 17, 55, 5, 19, 53, 31, 33, 35, 1, 39, 29, 11, 37, 47, 9, 27, 45, 7, 41, 43, 25, 127, 25, 43, 125, 7, 121, 123, 41, 47, 113, 115, 9, 119, 45, 27, 117, 31, 97, 99, 33, 103, 1

Offset

1,2

Comments

All terms are odd, by definition.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Formula

a(n) = A006068(A268669(n)).

Mathematica

f[n_] := Fold[BitXor, n, Quotient[n, 2^Range[BitLength@ n - 1]]]; g[n_] := If[OddQ@ #, n, g[#/2]] &@ f[n]; Table[f@ g@ n, {n, 85}]  (* Michael De Vlieger, Feb 12 2016, after Jan Mangaldan at A006068 *)

Prog

(Scheme) (define (A268670 n) (A006068 (A268669 n)))

Crossrefs

Cf. A001317 (positions of ones).

Cf. A006068, A268669, A268671.

Sequence in context: A354587 A065745 A361438 * A360331 A227873 A117677

Adjacent sequences: A268667 A268668 A268669 * A268671 A268672 A268673

Keyword

nonn,base

Author

Antti Karttunen, Feb 10 2016

Status

approved