|
%I #12 Oct 24 2013 17:28:44
%S 0,1,10,12,13,34,36,37,41,48,49,66,67,68,96,97,120,121,131,132,133,
%T 136,144,145,160,192,193,202,258,259,260,264,265,272,273,282,283,284,
%U 288,289,320,338,340,354,355,356,360,361,368,384,385,390,391,394,418
%N Numbers n such that (the binary weight of n) = (the ternary weight of n).
%H Charles R Greathouse IV, <a href="/A230597/b230597.txt">Table of n, a(n) for n = 1..10000</a>
%F A062756(a(n)) = A000120(a(n)).
%t w[m_]:=Table[Count[IntegerDigits[n,m],1],{n,0,2000}];Position[w[2]-w[3],0]//Flatten
%o (PARI) is(n)=my(v=digits(n,3)); sum(i=1,#v,v[i]==1)==hammingweight(n) \\ _Charles R Greathouse IV_, Oct 24 2013
%Y Cf. A000120, A062756.
%K nonn
%O 1,3
%A _Zak Seidov_, Oct 24 2013
|
