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