OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2000 from Ivan Neretin)
EXAMPLE
129 = 10000001 in base 2 and 129 = 3*43 hence 129 is in the sequence.
MATHEMATICA
Select[Range[2, 1000], Length[FactorInteger[#]] == DigitCount[#, 2, 1] &] (* Ivan Neretin, May 30 2015 *)
PROG
(PARI) for(n=1, 1000, if(sum(i=1, length(binary(n)), component(binary(n), i))==omega(n), print1(n, ", ")))
(PARI) select(n->hammingweight(n)==omega(n), vector(1000, n, n)) \\ Michel Marcus, May 30 2015
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Jun 01 2002
EXTENSIONS
Name edited by Amiram Eldar, Jan 11 2020
STATUS
approved