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,1

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.

Links

Table of n, a(n) for n=1..51.

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

Crossrefs

Cf. A000069, A001969, A224072.

Sequence in context: A101802 A363074 A156983 * A174196 A144226 A173709

Adjacent sequences: A230453 A230454 A230455 * A230457 A230458 A230459

Keyword

nonn,base

Author

Vladimir Shevelev, Oct 19 2013

Extensions

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

Status

approved