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

35, 50, 55, 56, 59, 69, 93, 100, 127, 157, 158, 185, 200, 203, 230, 233, 234, 239, 290, 299, 309, 333, 334, 336, 339, 346, 400, 403, 405, 406, 433, 436, 453, 458, 460, 463, 465, 466, 468, 517, 518, 548, 577, 578, 583, 653, 665, 666, 668, 727, 757, 758, 772

Offset: 1

Author

Vladimir Shevelev, Oct 11 2014

Keywords

• nonn
• base

Examples

			127 is in the sequence, since it is odious, while numbers 27,17,12 are evil.
		

Links

• Peter J. C. Moses, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000069, A001969, A248478, A248642, A248644.

Programs

Mathematica

odiousQ:=OddQ[First[DigitCount[#,2]]]&;
Select[Range[10,1000],odiousQ[#]&&Apply[And,Map[!odiousQ[FromDigits[#]]&,Subsets[#,{Length[#]-1}]&[IntegerDigits[#]]]]&] (* Peter J. C. Moses, Oct 11 2014 *)

Extensions

More terms from Peter J. C. Moses, Oct 11 2014