A304759 Binary encoding of 1-digits in ternary representation of A048673(n).

1, 0, 2, 2, 3, 0, 0, 6, 7, 4, 1, 2, 4, 4, 0, 14, 5, 12, 6, 10, 9, 0, 4, 6, 1, 0, 4, 10, 5, 8, 1, 30, 8, 8, 14, 26, 2, 8, 13, 22, 3, 16, 0, 2, 17, 12, 8, 14, 1, 0, 10, 2, 10, 0, 9, 22, 3, 8, 11, 18, 9, 0, 18, 62, 0, 20, 12, 18, 1, 24, 13, 54, 15, 0, 28, 18, 0, 24, 12, 46, 37, 4, 8, 34, 7, 4, 0, 6, 11, 32, 23, 26, 22, 0

Offset

1,3

Comments

Compare the logarithmic scatterplot to those of A291759, A292250 and A304760.

Links

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

Index entries for sequences related to binary expansion of n

Formula

a(n) = A289813(A048673(n)).

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;
A289813(n) = { my (d=digits(n, 3)); from digits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From A289813
A304759(n) = A289813(A048673(n));

Crossrefs

Cf. A048673, A289813, A304758 (rgs-transform), A340381.

Cf. also A291759, A292250, A304760, A305295.

Cf. A340376 (positions of zeros), A340378 (binary weight).

Sequence in context: A330622 A330629 A304760 * A073438 A187096 A340146

Adjacent sequences: A304756 A304757 A304758 * A304760 A304761 A304762

Keyword

nonn,look,base

Author

Antti Karttunen, May 30 2018

Status

approved