A322018 a(n) = A006068(A129760(A003188(n))).

0, 0, 3, 0, 7, 4, 7, 0, 15, 8, 11, 8, 15, 12, 15, 0, 31, 16, 19, 16, 23, 20, 23, 16, 31, 24, 27, 24, 31, 28, 31, 0, 63, 32, 35, 32, 39, 36, 39, 32, 47, 40, 43, 40, 47, 44, 47, 32, 63, 48, 51, 48, 55, 52, 55, 48, 63, 56, 59, 56, 63, 60, 63, 0, 127, 64, 67, 64, 71, 68, 71, 64, 79, 72, 75, 72, 79, 76, 79, 64, 95, 80, 83, 80, 87, 84, 87, 80

Offset

0,3

Comments

For all n, A207901(a(n)) divides A207901(n), and similarly for A302033.

Links

Antti Karttunen, Table of n, a(n) for n = 0..16383

Index entries for sequences related to binary expansion of n

Formula

a(n) = A006068(A129760(A003188(n))).

Prog

(PARI)
A003188(n) = bitxor(n, n>>1);
A006068(n)= { my(s=1, ns); while(1, ns = n >> s; if(0==ns, break()); n = bitxor(n, ns); s <<= 1; ); return (n); } \\ After code in A006068
A129760(n) = bitand(n, n-1); \\ From A129760
A322018(n) = A006068(A129760(A003188(n)));

Crossrefs

Cf. A003188, A006068, A035327, A129760.

Cf. also A207901, A302033, A322017.

Sequence in context: A062253 A290844 A369094 * A200339 A065419 A019092

Adjacent sequences: A322015 A322016 A322017 * A322019 A322020 A322021

Keyword

nonn

Author

Antti Karttunen, Nov 27 2018

Status

approved