login
A305295
Binary encoding of 1-digits in ternary representation of A245612(n).
5
1, 0, 2, 2, 6, 7, 0, 3, 14, 4, 12, 1, 2, 0, 4, 0, 30, 37, 0, 5, 26, 28, 0, 1, 6, 17, 8, 14, 10, 9, 4, 1, 62, 16, 72, 103, 2, 90, 8, 0, 54, 25, 60, 33, 2, 32, 0, 19, 14, 40, 32, 40, 18, 11, 24, 0, 22, 18, 16, 9, 10, 8, 0, 4, 126, 333, 36, 305, 146, 4, 204, 331, 6, 147, 176, 44, 18, 225, 8, 121, 110, 214, 48, 203, 122, 6, 64, 78, 6, 1
OFFSET
0,3
PROG
(PARI)
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
A048673(n) = (A003961(n)+1)/2;
A254049(n) = A048673((2*n)-1);
A245612(n) = if(n<2, 1+n, if(!(n%2), (3*A245612(n/2))-1, A254049(A245612((n-1)/2))));
A289813(n) = { my (d=digits(n, 3)); from digits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From A289813
CROSSREFS
Cf. A245612, A289813, A305296 (rgs-transform).
Cf. also A292260, A291763.
Cf. also A304759, A304760.
Sequence in context: A265642 A186944 A247525 * A174789 A210865 A210861
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 31 2018
STATUS
approved