A235669 Sum of parts of the form 10...0 and 20...0 with nonnegative number of zeros in ternary representation of n as the corresponding numbers 3^n and 2*3^n.

0, 1, 2, 3, 2, 3, 6, 3, 4, 9, 4, 5, 4, 3, 4, 7, 4, 5, 18, 7, 8, 5, 4, 5, 8, 5, 6, 27, 10, 11, 6, 5, 6, 9, 6, 7, 10, 5, 6, 5, 4, 5, 8, 5, 6, 19, 8, 9, 6, 5, 6, 9, 6, 7, 54, 19, 20, 9, 8, 9, 12, 9, 10, 11, 6, 7, 6, 5, 6, 9, 6, 7, 20, 9, 10, 7, 6, 7, 10, 7, 8, 81, 28, 29, 12

Offset: 0

Author

Vladimir Shevelev, Jan 13 2014

Keywords

• nonn
• base
• look

Comments

The number of appearances of k is the number of compositions of k into numbers of the form 3^n and 2*3^n, A235684(k).

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A124771, A162439, A233249, A233312, A233416, A233420, A233564, A233569, A233655.

Programs

Mathematica

bitPatt[n_,b_]:=Split[IntegerDigits[n,b ],#2==0&]; Map[Plus@@Map[FromDigits[#,3]&,bitPatt[#,3]]&,Range[0,50]] (* Peter J. C. Moses, Jan 13 2014 *)