|
|
A130593
|
|
Evil semiprimes.
|
|
5
|
|
|
6, 9, 10, 15, 33, 34, 39, 46, 51, 57, 58, 65, 77, 85, 86, 95, 106, 111, 119, 123, 129, 141, 142, 159, 166, 169, 177, 178, 183, 187, 201, 202, 209, 215, 219, 221, 226, 235, 237, 249, 267
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Products of two (not necessarily distinct) primes such that the product has an even number of 1's in its binary expansion. Non-evil semiprimes are odious (A000069).
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[300], PrimeOmega[#]==2&&EvenQ[DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Nov 08 2011 *)
|
|
PROG
|
(PARI) list(lim)=my(v=List(), t); forprime(p=2, lim\2, forprime(q=2, min(p, lim\p), if(hammingweight(n=p*q)%2, , listput(v, n)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Mar 26 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|