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,1

Links

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

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

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

Sequence in context: A247135 A249819 A186319 * A089268 A214469 A306117

Adjacent sequences: A248656 A248657 A248658 * A248660 A248661 A248662

Keyword

nonn,base

Author

Vladimir Shevelev, Oct 11 2014

Extensions

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

Status

approved