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