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
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..10000
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 *)
Comments