A231254 Odious primes p (A027697) such that p^2 and p^3 are evil (A027699).

37, 47, 107, 137, 233, 331, 463, 491, 557, 587, 607, 631, 653, 733, 823, 829, 883, 947, 971, 997, 1153, 1187, 1193, 1231, 1249, 1321, 1327, 1493, 1543, 1567, 1663, 1667, 1669, 1709, 1787, 1801, 1933, 1987, 2011, 2027, 2087, 2143, 2161, 2213, 2269, 2273, 2311

Offset: 1

Author

Vladimir Shevelev and Peter J. C. Moses, Nov 06 2013

Keywords

• nonn
• base

Comments

Sequence {a(n)^4} is a subsequence of A227891 such that a(1)^4 = 1874161 is the smallest power of an odious prime that is in A227891.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001969, A027697, A027699, A227891.

Programs

Mathematica

evilQ[n_]:=EvenQ[DigitCount[n,2][[1]]];
odiousQ[n_]:=OddQ[DigitCount[n, 2][[1]]];
Select[Range[2000],PrimeQ[#]&&odiousQ[#]&&evilQ[#^2]&&evilQ[#^3]&] (* Peter J. C. Moses, Nov 08 2013 *)