%I #12 Oct 22 2013 12:53:21
%S 23,29,39,71,95,119,125,135,159,263,287,343,349,359,373,383,407,413,
%T 423,437,469,479,503,509,519,543,599,605,615,629,639,663,669,679,711,
%U 741,791,797,807,839,869,917,933,1031,1055,1111,1117,1127,1141,1151,1175
%N Odd evil a(n) (A001969), such that 3*a(n) and a(n)+3 are odious (A000069).
%C Or a(n) is odd number such that the polynomial x^2 - (a(n)+3)*x + 3*a(n) has odious coefficients and evil roots.
%C 3*a(n) is in the A224072.
%t evilQ[n_]:=EvenQ[DigitCount[n,2][[1]]]; odiousQ[n_]:=OddQ[DigitCount[n,2][[1]]]; Select[Range[3000], OddQ[#] && evilQ[#] && odiousQ[3#] && odiousQ[#+3]&] (* _Peter J. C. Moses_, Oct 19 2013 *)
%Y Cf. A000069, A001969, A224072.
%K nonn,base
%O 1,1
%A _Vladimir Shevelev_, Oct 19 2013
%E More terms from _Peter J. C. Moses_, Oct 19 2013
|