OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Nov 06 2013
STATUS
approved