login
A248659
Odious numbers (A000069) becoming evil (A001969) if any digit is deleted (zeros allowed).
4
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,1
LINKS
EXAMPLE
127 is in the sequence, since it is odious, while numbers 27,17,12 are evil.
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Oct 11 2014
EXTENSIONS
More terms from Peter J. C. Moses, Oct 11 2014
STATUS
approved