0,4

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

Index entries for sequences related to binary expansion of n

a(n) = A289813(A254103(n)).

(PARI)

A254103(n) = if(!n, n, if(!(n%2), (3*A254103(n/2))-1, (3*(1+A254103((n-1)/2)))\2));

A289813(n) = { my (d=digits(n, 3)); from digits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From A289813

A304760(n) = A289813(A254103(n));

Cf. A254103, A289813, A304740 (rgs-transform).

Cf. also A291760.

Sequence in context: A246471 A079243 A289814 * A304759 A073438 A187096

Adjacent sequences: A304757 A304758 A304759 * A304761 A304762 A304763

nonn,base

Antti Karttunen, May 29 2018

approved