OFFSET
1,2
COMMENTS
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..10000
EXAMPLE
The odious number k = 341 has divisors {1, 11, 31, 341}. Since the numbers 341 + 1 = 342, 341 + 11 = 352, 341 + 31 = 372, 341 + 341 = 682 are all odious, then 341 is a term.
MATHEMATICA
odiousQ[n_] := OddQ[DigitCount[n, 2][[1]]]; selQ[n_] := Length[Union[Map[odiousQ, Flatten[{n, Map[n+#&, Divisors[n]]}]]]] == 1; Select[Range[200], selQ] (* Peter J. C. Moses, Nov 08 2013 *)
PROG
(PARI) is(k) = {my(hw = hammingweight(k) % 2); fordiv(k, d, if(hammingweight(k+d) % 2 != hw, return(0))); 1; } \\ Amiram Eldar, Aug 12 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Nov 06 2013
EXTENSIONS
More terms from Peter J. C. Moses, Nov 08 2013
STATUS
approved