OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
532 = 1000010100 in base 2 and 532 = 2^2*7*19 hence 532 is in the sequence.
MATHEMATICA
Select[Range[2, 640, 2], DigitCount[#, 2, 1] == PrimeNu[#] &] (* Amiram Eldar, Jan 11 2020 *)
PROG
(PARI) for(n=1, 80000, if(sum(i=1, length(binary(n)), component(binary(n), i))==(-1)^n*omega(n), print1(n, ", ")))
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Jun 01 2002
STATUS
approved