%I A078839
%S A078839 2,12,69,73,150,184,252,328,339,464,483,541,729,747,758,763,1014,1047,
%T A078839 1090,1094,1158,1264,1359,1601,1679,1693,1698,1780,2368,2641,2815,3292,
%U A078839 3393,3606,3682,3857,3909,3919,3963,4087,4111,4289,4314,5017,5398,5466
%N A078839 Numbers n such that the binary expansion of 3^n has the same number of 
               0's and 1's.
%C A078839 Does the limit of a(n)/n^2 as n -> infinity exist?
%t A078839 balanced[n_] := Module[{d=IntegerDigits[n, 2]}, Plus@@d==Length[d]/2]; 
               Select[Range[0, 5500], balanced[3^# ]&]
%Y A078839 Cf. A031443, A011754.
%Y A078839 Sequence in context: A000954 A056636 A128103 this_sequence A026306 A116398 
               A001542
%Y A078839 Adjacent sequences: A078836 A078837 A078838 this_sequence A078840 A078841 
               A078842
%K A078839 nonn
%O A078839 1,1
%A A078839 Benoit Cloitre (benoit7848c(AT)orange.fr), Dec 06 2002