OFFSET
1,1
COMMENTS
The sequence is obtained using Eratosthenes-like sieve for odious numbers.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
odiousQ[n_] := OddQ@Total@IntegerDigits[n, 2]; okQ[n_] := n > 1 && odiousQ[n] && ! PrimeQ[n] && Catch[Do[If[odiousQ[d], Throw[False]], {d, Most@Rest@Divisors@n}]; True]; Select[Range@3000, okQ] (* Giovanni Resta, Mar 28 2013 *)
PROG
(PARI) isodi(n) = hammingweight(n) % 2;
noodid(n) = {fordiv(n, d, if ((d != 1) && (d < n) && isodi(d), return (0)); ); 1; }
lista(nn) = {forcomposite(n=1, nn, if (isodi(n) && noodid(n), print1(n, ", ")); ); } \\ Michel Marcus, Feb 08 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Mar 28 2013
EXTENSIONS
a(10)-a(48) from Giovanni Resta, Mar 28 2013
STATUS
approved