A340379 Number of 2-digits in the ternary representation of A048673(n).
0, 1, 0, 1, 0, 2, 1, 1, 0, 1, 1, 2, 0, 2, 1, 1, 0, 1, 0, 1, 0, 2, 1, 2, 2, 3, 1, 2, 1, 3, 1, 1, 1, 1, 0, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 2, 0, 2, 2, 3, 1, 3, 0, 4, 1, 2, 1, 2, 0, 3, 1, 2, 1, 1, 2, 2, 0, 1, 2, 2, 0, 1, 0, 3, 1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 3, 3, 2, 1, 2, 0, 2, 0, 4, 0, 2, 2, 3, 1, 3, 2, 3, 1, 3, 1
Offset: 1
Keywords
Links
Crossrefs
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; A289814(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); } \\ From A289814 A291759(n) = A289814(A048673(n)); A340379(n) = hammingweight(A291759(n));
Comments