|
%I #15 Oct 17 2020 02:19:00
%S 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 56,59,61,62,64,67,69,73,74,75,76,77,79,81,82,87,88,91,94,97,98,100,
%U 103,104,107,109,112,115,118,121,122,124,125,127,128
%N Numbers that are not odiousfree*evilfree. The complement of A237417.
%H Amiram Eldar, <a href="/A238989/b238989.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 Cf. A000069 (odious numbers), A001969 (evil numbers), A093688 (1 together with odiousfree numbers), A093696 (evilfree numbers), A237417 (odiousfree*evilfree numbers).
%K nonn,base
%O 1,2
%A _Irina Gerasimova_, Mar 08 2014, following a suggestion from _Juri-Stepan Gerasimov_.
|
