This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A238989 #17 Jul 09 2025 04:17:14
%S A238989 1,2,4,7,8,11,13,14,16,19,22,25,26,28,31,32,37,38,41,44,47,49,50,52,
%T A238989 56,59,61,62,64,67,69,73,74,75,76,77,79,81,82,87,88,91,94,97,98,100,
%U A238989 103,104,107,109,112,115,118,121,122,124,125,127,128
%N A238989 Numbers that are not odiousfree*evilfree. The complement of A237417.
%H A238989 Amiram Eldar, <a href="/A238989/b238989.txt">Table of n, a(n) for n = 1..10000</a>
%t A238989 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 *)
%Y A238989 Cf. A000069 (odious numbers), A001969 (evil numbers), A093688 (1 together with odiousfree numbers), A093696 (evilfree numbers), A237417 (odiousfree*evilfree numbers).
%K A238989 nonn,base
%O A238989 1,2
%A A238989 _Juri-Stepan Gerasimov_, Mar 08 2014