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

%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