A096405 Numbers having an equal number of zeros in their binary and ternary representations.
0, 1, 6, 7, 9, 11, 28, 45, 47, 57, 59, 60, 61, 62, 81, 83, 90, 91, 93, 95, 99, 108, 109, 110, 117, 119, 123, 171, 183, 190, 207, 219, 222, 223, 248, 303, 315, 378, 379, 381, 383, 405, 407, 411, 414, 415, 423, 447, 459, 477, 479, 488, 490, 497, 498, 499, 502, 508
Offset: 1
Examples
n=60: A007088(60)='111100', A007089(60)='2020': both containing two zeros, therefore 60 is a term.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= n -> numboccur(0,convert(n,base,2))=numboccur(0,convert(n,base,3)): select(filter, [$0..1000]); # Robert Israel, Jan 16 2018
-
Mathematica
Select[Range[0,600],DigitCount[#,2,0]==DigitCount[#,3,0]&] (* Harvey P. Dale, Feb 02 2012 *)
Comments