|
|
A248642
|
|
Odious numbers (A000069) remaining odious if any digit is deleted (zeros allowed).
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
161 is in the sequence, since the numbers 161,61,11,16 are odious.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|