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

Author

Zak Seidov, Apr 26 2006

Keywords

• base
• nonn

Comments

All terms are even. Intersection of A005823 & A023709.

Links

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

Crossrefs

Cf. A005823, A023709.

Programs

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]&]