login
A304760
Binary encoding of 1-digits in ternary representation of A254103(n).
6
0, 1, 0, 2, 2, 3, 0, 0, 6, 4, 4, 1, 2, 7, 4, 5, 14, 3, 0, 4, 10, 0, 0, 6, 6, 12, 12, 2, 10, 8, 8, 5, 30, 4, 4, 9, 2, 15, 12, 0, 22, 11, 8, 9, 2, 11, 8, 1, 14, 19, 16, 1, 26, 3, 0, 8, 22, 3, 0, 12, 18, 8, 8, 1, 62, 3, 0, 20, 10, 16, 16, 9, 6, 28, 28, 1, 26, 7, 4, 13, 46, 20, 20, 2, 18, 16, 16, 13, 6, 20, 20, 10, 18
OFFSET
0,4
FORMULA
a(n) = A289813(A254103(n)).
PROG
(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
CROSSREFS
Cf. A254103, A289813, A304740 (rgs-transform).
Cf. also A291760.
Sequence in context: A328686 A330622 A330629 * A304759 A073438 A187096
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 29 2018
STATUS
approved