%I #10 Oct 18 2014 16:09:31
%S 11,14,21,22,28,41,42,44,47,74,81,82,84,87,88,131,161,164,191,193,194,
%T 211,256,261,262,321,322,328,352,355,381,382,388,419,421,422,491,494,
%U 502,522,552,555,569,611,614,641,642,644,647,704,744,749,764,769,793
%N Odious numbers (A000069) remaining odious if any digit is deleted (zeros allowed).
%C An analog of the idea Wilson-Dale: A034302, A051362.
%H Peter J. C. Moses, <a href="/A248642/b248642.txt">Table of n, a(n) for n = 1..1000</a>
%e 161 is in the sequence, since the numbers 161,61,11,16 are odious.
%t odiousQ:=OddQ[First[DigitCount[#,2]]]&;
%t Select[Range[1000],odiousQ[#]&&Apply[And,Map[odiousQ[FromDigits[#]]&,Subsets[#,{Length[#]-1}]&[IntegerDigits[#]]]]&] (* _Peter J. C. Moses_, Oct 10 2014 *)
%Y Cf. A000069, A248478, A248644, A248659.
%K nonn,base
%O 1,1
%A _Vladimir Shevelev_, Oct 10 2014
%E More terms from _Peter J. C. Moses_, Oct 10 2014