|
|
A071814
|
|
Number of 1's in binary representation of n equals bigomega(n), the number of prime divisors of n (counted with multiplicity).
|
|
3
|
|
|
2, 6, 9, 10, 28, 33, 34, 42, 44, 50, 52, 54, 60, 65, 70, 76, 90, 98, 129, 135, 138, 148, 150, 156, 164, 184, 198, 204, 210, 225, 228, 232, 261, 266, 268, 273, 290, 292, 294, 297, 306, 308, 322, 330, 340, 344, 385, 388, 390, 405, 424, 440, 468, 486, 496, 504
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A115156 is a subsequence: A001222(A115156(n))=A000120(A115156(n))=n. - Reinhard Zumkeller, Jan 14 2006
|
|
LINKS
|
Ivan Neretin, Table of n, a(n) for n = 1..10000
|
|
EXAMPLE
|
232 is a term because 232 = 11101000 in base 2 and 232=2^3*29.
|
|
MATHEMATICA
|
fQ[n_] := Count[IntegerDigits[n, 2], 1] == Plus @@ Last /@ FactorInteger@n; Select[ Range@517, fQ[ # ] &] (* Robert G. Wilson v, Jan 18 2006 *)
Select[Range[600], Count[IntegerDigits[#, 2], 1]==PrimeOmega[#]&] (* Harvey P. Dale, Mar 07 2019 *)
|
|
CROSSREFS
|
Cf. A001222, A071594.
Sequence in context: A085304 A015843 A109600 * A066586 A146974 A133160
Adjacent sequences: A071811 A071812 A071813 * A071815 A071816 A071817
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Jason Earls, Jun 07 2002
|
|
STATUS
|
approved
|
|
|
|