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

%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