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,3

Comments

A023416(a(n)) = A077267(a(n)).

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

n=60: A007088(60)='111100', A007089(60)='2020': both containing two zeros, therefore 60 is a term.

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 *)

Crossrefs

Cf. A023416, A077267.

Sequence in context: A095908 A094698 A361419 * A228499 A309961 A108595

Adjacent sequences: A096402 A096403 A096404 * A096406 A096407 A096408

Keyword

nonn,base

Author

Reinhard Zumkeller, Aug 07 2004

Status

approved