|
Search: id:A014313
|
|
|
| A014313 |
|
Numbers with exactly 5 ones in binary expansion. |
|
+0
8
|
|
| 31, 47, 55, 59, 61, 62, 79, 87, 91, 93, 94, 103, 107, 109, 110, 115, 117, 118, 121, 122, 124, 143, 151, 155, 157, 158, 167, 171, 173, 174, 179, 181, 182, 185, 186, 188, 199, 203, 205, 206, 211, 213, 214, 217, 218, 220, 227, 229
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Appears to give all n such that 4096 is the highest power of 2 dividing A005148(n). - Benoit Cloitre (benoit7848c(AT)orange.fr), Jun 22 2002
|
|
MATHEMATICA
|
Select[ Range[ 31, 240 ], (Count[ IntegerDigits[ #, 2 ], 1 ]==5)& ]
|
|
PROGRAM
|
Contribution from Michael Porter (michael_b_porter(AT)yahoo.com), Oct 21 2009: (Start)
(PARI) sum_of_bits(n) = if(n<1, 0, sum_of_bits(floor(n/2))+n%2)
isA014313(n) = (sum_of_bits(n) == 5); (End)
|
|
CROSSREFS
|
Sequence in context: A033905 A033661 A046047 this_sequence A095318 A130096 A075586
Adjacent sequences: A014310 A014311 A014312 this_sequence A014314 A014315 A014316
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
Al Black (gblack(AT)nol.net)
|
|
EXTENSIONS
|
Extension and program by Olivier Gerard
|
|
|
Search completed in 0.002 seconds
|
