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

Author

Antti Karttunen, May 30 2018

Keywords

• nonn
• look
• base

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

Crossrefs

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

Cf. also A291759, A292250, A304760, A305295.

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

Programs

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

Formula

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