A117496 Numbers with no 1's in base 3 & 4 expansions.

0, 2, 8, 56, 60, 62, 162, 168, 170, 186, 188, 224, 234, 236, 240, 242, 512, 546, 558, 560, 648, 650, 654, 672, 674, 702, 704, 2106, 2108, 2178, 2184, 2186, 13184, 13194, 13196, 13290, 13292, 13304, 13308, 13310, 14586, 14588, 15072, 15074, 15084, 15086

Offset

1,2

Comments

All terms are even. Intersection of A005823 & A023709.

Links

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

Maple

f:= proc(r) local L, n, i;
  L:= convert(r, base, 2);
  n:= add(2*3^(i-1)*L[i], i=1..nops(L));
  if has(convert(n, base, 4), 1) then NULL else n fi
end proc:
map(f, [$0..10000]); # Robert Israel, Feb 04 2016

Mathematica

Select[Range[0, 42000, 2], FreeQ[Flatten[{IntegerDigits[ #, 4], IntegerDigits[ #, 3]}], 1]&]

Crossrefs

Cf. A005823, A023709.

Sequence in context: A134954 A087422 A081667 * A117564 A254222 A023179

Adjacent sequences: A117493 A117494 A117495 * A117497 A117498 A117499

Keyword

base,nonn

Author

Zak Seidov, Apr 26 2006

Status

approved