%I #11 Jan 27 2014 12:09:30
%S 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,
%T 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,
%U 11,6,7,6,5,6,9,6,7,20,9,10,7,6,7,10,7,8,81,28,29,12
%N 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.
%C 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).
%H Alois P. Heinz, <a href="/A235669/b235669.txt">Table of n, a(n) for n = 0..10000</a>
%t 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 *)
%Y Cf. A124771, A162439, A233249, A233312, A233416, A233420, A233564, A233569, A233655.
%K nonn,base,look
%O 0,3
%A _Vladimir Shevelev_, Jan 13 2014
|