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 A248659 #11 Oct 25 2014 22:53:19 %S A248659 35,50,55,56,59,69,93,100,127,157,158,185,200,203,230,233,234,239,290, %T A248659 299,309,333,334,336,339,346,400,403,405,406,433,436,453,458,460,463, %U A248659 465,466,468,517,518,548,577,578,583,653,665,666,668,727,757,758,772 %N A248659 Odious numbers (A000069) becoming evil (A001969) if any digit is deleted (zeros allowed). %H A248659 Peter J. C. Moses, <a href="/A248659/b248659.txt">Table of n, a(n) for n = 1..1000</a> %e A248659 127 is in the sequence, since it is odious, while numbers 27,17,12 are evil. %t A248659 odiousQ:=OddQ[First[DigitCount[#,2]]]&; %t A248659 Select[Range[10,1000],odiousQ[#]&&Apply[And,Map[!odiousQ[FromDigits[#]]&,Subsets[#,{Length[#]-1}]&[IntegerDigits[#]]]]&] (* _Peter J. C. Moses_, Oct 11 2014 *) %Y A248659 Cf. A000069, A001969, A248478, A248642, A248644. %K A248659 nonn,base %O A248659 1,1 %A A248659 _Vladimir Shevelev_, Oct 11 2014 %E A248659 More terms from _Peter J. C. Moses_, Oct 11 2014