%I #8 Feb 04 2016 14:38:10
%S 0,2,8,56,60,62,162,168,170,186,188,224,234,236,240,242,512,546,558,
%T 560,648,650,654,672,674,702,704,2106,2108,2178,2184,2186,13184,13194,
%U 13196,13290,13292,13304,13308,13310,14586,14588,15072,15074,15084,15086
%N Numbers with no 1's in base 3 & 4 expansions.
%C All terms are even. Intersection of A005823 & A023709.
%H Robert Israel, <a href="/A117496/b117496.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(r) local L,n,i;
%p L:= convert(r,base,2);
%p n:= add(2*3^(i-1)*L[i],i=1..nops(L));
%p if has(convert(n,base,4),1) then NULL else n fi
%p end proc:
%p map(f, [$0..10000]); # _Robert Israel_, Feb 04 2016
%t Select[Range[0,42000,2],FreeQ[Flatten[{IntegerDigits[ #,4],IntegerDigits[ #,3]}],1]&]
%Y Cf. A005823, A023709.
%K base,nonn
%O 1,2
%A _Zak Seidov_, Apr 26 2006
|