cp's OEIS Frontend

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.

A248659 Odious numbers (A000069) becoming evil (A001969) if any digit is deleted (zeros allowed).

This page as a plain text file.
%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