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 A117564 #14 Feb 04 2016 03:49:19 %S A117564 0,2,8,56,60,62,224,234,236,240,242,546,558,560,648,650,654,672,674, %T A117564 702,704,40992,40994,43746,43758,43760,43820,43904,43962,43964,43976, %U A117564 43980,43982,44226,44232,44234,44280,44282,44286,45224,45258,45260,45704 %N A117564 Numbers with no 1's in base 3, 4 & 10 expansions. %H A117564 Robert Israel, <a href="/A117564/b117564.txt">Table of n, a(n) for n = 1..10000</a> %p A117564 a:=proc(n) if member(1,convert(convert(n,base,3),set) union convert(convert(n,base,4),set) union convert(convert(n,base,10),set))=false then n else fi end: seq(a(n),n=0..46000); # _Emeric Deutsch_, Oct 10 2006 %t A117564 n1Q[n_]:=DigitCount[n,3,1]==DigitCount[n,4,1]==DigitCount[n,10,1]==0; Select[Range[0,50000],n1Q] (* _Harvey P. Dale_, Sep 30 2012 *) %Y A117564 Cf. A005823, A023709, A117496. %K A117564 base,nonn %O A117564 1,2 %A A117564 _Zak Seidov_, Apr 29 2006 %E A117564 More terms from _Emeric Deutsch_, Oct 10 2006