|
%I #12 Jan 16 2018 21:12:05
%S 0,1,6,7,9,11,28,45,47,57,59,60,61,62,81,83,90,91,93,95,99,108,109,
%T 110,117,119,123,171,183,190,207,219,222,223,248,303,315,378,379,381,
%U 383,405,407,411,414,415,423,447,459,477,479,488,490,497,498,499,502,508
%N Numbers having an equal number of zeros in their binary and ternary representations.
%C A023416(a(n)) = A077267(a(n)).
%H Robert Israel, <a href="/A096405/b096405.txt">Table of n, a(n) for n = 1..10000</a>
%e n=60: A007088(60)='111100', A007089(60)='2020': both containing two zeros, therefore 60 is a term.
%p filter:= n -> numboccur(0,convert(n,base,2))=numboccur(0,convert(n,base,3)):
%p select(filter, [$0..1000]); # _Robert Israel_, Jan 16 2018
%t Select[Range[0,600],DigitCount[#,2,0]==DigitCount[#,3,0]&] (* _Harvey P. Dale_, Feb 02 2012 *)
%Y Cf. A023416, A077267.
%K nonn,base
%O 1,3
%A _Reinhard Zumkeller_, Aug 07 2004
|
