A238989 Numbers that are not odiousfree*evilfree. The complement of A237417.

1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 22, 25, 26, 28, 31, 32, 37, 38, 41, 44, 47, 49, 50, 52, 56, 59, 61, 62, 64, 67, 69, 73, 74, 75, 76, 77, 79, 81, 82, 87, 88, 91, 94, 97, 98, 100, 103, 104, 107, 109, 112, 115, 118, 121, 122, 124, 125, 127, 128

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

odFreeQ[n_] := AllTrue[Rest @ Divisors[n], EvenQ[DigitCount[#, 2, 1]] &]; evFreeQ[n_] := AllTrue[Divisors[n], OddQ[DigitCount[#, 2, 1]] &]; m = 100; o = Select[Range[2, m], odFreeQ]; e = Select[Range[m], evFreeQ]; Complement[Range[m], Union @ Select[Times @@@ Tuples[{o, e}], # <= m &]] (* Amiram Eldar, Oct 16 2020 *)

Crossrefs

Cf. A000069 (odious numbers), A001969 (evil numbers), A093688 (1 together with odiousfree numbers), A093696 (evilfree numbers), A237417 (odiousfree*evilfree numbers).

Sequence in context: A080308 A089559 A165741 * A093696 A190851 A325427

Adjacent sequences: A238986 A238987 A238988 * A238990 A238991 A238992

Keyword

nonn,base

Author

Irina Gerasimova, Mar 08 2014, following a suggestion from Juri-Stepan Gerasimov.

Status

approved