A230456 Odd evil a(n) (A001969), such that 3*a(n) and a(n)+3 are odious (A000069).

23, 29, 39, 71, 95, 119, 125, 135, 159, 263, 287, 343, 349, 359, 373, 383, 407, 413, 423, 437, 469, 479, 503, 509, 519, 543, 599, 605, 615, 629, 639, 663, 669, 679, 711, 741, 791, 797, 807, 839, 869, 917, 933, 1031, 1055, 1111, 1117, 1127, 1141, 1151, 1175

Offset: 1

Author

Vladimir Shevelev, Oct 19 2013

Keywords

• nonn
• base

Comments

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.

3*a(n) is in the A224072.

Crossrefs

Cf. A000069, A001969, A224072.

Programs

Mathematica

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 *)

Extensions

More terms from Peter J. C. Moses, Oct 19 2013