login
A230456
Odd evil a(n) (A001969), such that 3*a(n) and a(n)+3 are odious (A000069).
0
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.
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
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Oct 19 2013
EXTENSIONS
More terms from Peter J. C. Moses, Oct 19 2013
STATUS
approved