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 A117482 #11 Feb 06 2019 02:14:48 %S A117482 0,2,60,62,512,560,2178,15072,15074,15090,40992,40994,41004,41010, %T A117482 43760,43818,43820,45260,45704,45710,45738,45740,45744,53192,53198, %U A117482 57512,57518,57570,163842,163854,164000,164018,164024 %N A117482 Numbers with no 1's in their base-3, base-4, and base-5 expansions. Intersection of A005823, A023709, and A023725. %C A117482 No more terms <= 1000000. - _Emeric Deutsch_, Apr 30 2006 %C A117482 No more terms <= 5000000. - _Harvey P. Dale_, Jan 17 2014 %e A117482 560 is in the sequence because in base 3 it is 202202, in base 4 it is 20300 and in base 5 it is 4220. %p A117482 a:=proc(n) if member(1,convert(convert(n,base,3),set) union convert(convert(n,base,4),set) union convert(convert(n,base,5),set))=false then n else fi end: seq(a(n),n=0..170000); # _Emeric Deutsch_, Apr 30 2006 %t A117482 Select[Range[0,200000],Table[DigitCount[#,n,1],{n,3,5}]=={0,0,0}&] (* _Harvey P. Dale_, Jan 17 2014 *) %Y A117482 Cf. A005823, A023709, A023725. %K A117482 base,nonn %O A117482 1,2 %A A117482 _Zak Seidov_, Apr 26 2006