A305295 Binary encoding of 1-digits in ternary representation of A245612(n).

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

Links

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

Index entries for sequences related to binary expansion of n

Index entries for sequences computed from indices in prime factorization

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
A305295(n) = A289813(A245612(n));

Crossrefs

Cf. A245612, A289813, A305296 (rgs-transform).

Cf. also A292260, A291763.

Cf. also A304759, A304760.

Sequence in context: A265642 A186944 A247525 * A174789 A210865 A210861

Adjacent sequences: A305292 A305293 A305294 * A305296 A305297 A305298

Keyword

nonn,base

Author

Antti Karttunen, May 31 2018

Status

approved