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