login
A268670
a(n) = A006068(A268669(n)).
4
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
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).
Sequence in context: A354587 A065745 A361438 * A360331 A227873 A117677
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 10 2016
STATUS
approved