A248642 Odious numbers (A000069) remaining odious if any digit is deleted (zeros allowed).

11, 14, 21, 22, 28, 41, 42, 44, 47, 74, 81, 82, 84, 87, 88, 131, 161, 164, 191, 193, 194, 211, 256, 261, 262, 321, 322, 328, 352, 355, 381, 382, 388, 419, 421, 422, 491, 494, 502, 522, 552, 555, 569, 611, 614, 641, 642, 644, 647, 704, 744, 749, 764, 769, 793

Offset: 1

Author

Vladimir Shevelev, Oct 10 2014

Keywords

• nonn
• base

Comments

An analog of the idea Wilson-Dale: A034302, A051362.

Examples

			161 is in the sequence, since the numbers 161,61,11,16 are odious.
		

Links

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

Crossrefs

Cf. A000069, A248478, A248644, A248659.

Programs

Mathematica

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

Extensions

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