This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A071814 #21 Apr 13 2024 14:56:30 %S A071814 2,6,9,10,28,33,34,42,44,50,52,54,60,65,70,76,90,98,129,135,138,148, %T A071814 150,156,164,184,198,204,210,225,228,232,261,266,268,273,290,292,294, %U A071814 297,306,308,322,330,340,344,385,388,390,405,424,440,468,486,496,504 %N A071814 Numbers k such that the number of 1's in the binary representation of k equals bigomega(k), the number of prime divisors of k (counted with multiplicity). %C A071814 A115156 is a subsequence: A001222(A115156(n)) = A000120(A115156(n)) = n. - _Reinhard Zumkeller_, Jan 14 2006 %H A071814 Ivan Neretin, <a href="/A071814/b071814.txt">Table of n, a(n) for n = 1..10000</a> %e A071814 232 is a term because 232 = 11101000_2 and 232 = 2^3*29. %t A071814 fQ[n_] := Count[IntegerDigits[n, 2], 1] == Plus @@ Last /@ FactorInteger@n; Select[ Range@517, fQ[ # ] &] (* _Robert G. Wilson v_, Jan 18 2006 *) %t A071814 Select[Range[600],Count[IntegerDigits[#,2],1]==PrimeOmega[#]&] (* _Harvey P. Dale_, Mar 07 2019 *) %Y A071814 Cf. A000120, A001222, A071594, A115156. %K A071814 easy,nonn %O A071814 1,1 %A A071814 _Jason Earls_, Jun 07 2002