|
|
A014313
|
|
Numbers with exactly 5 ones in binary expansion.
|
|
21
|
|
|
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, 230, 233, 234, 236, 241, 242
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Appears to give all n such that 4096 is the highest power of 2 dividing A005148(n). - Benoit Cloitre, Jun 22 2002
|
|
LINKS
|
|
|
FORMULA
|
Sum_{n>=1} 1/a(n) = 1.390704528210321982529622080740025763242354253694629591331835888395977392151... (calculated using Baillie's irwinSums.m, see Links). - Amiram Eldar, Feb 14 2022
|
|
MATHEMATICA
|
Select[ Range[31, 240], Total[IntegerDigits[#, 2]] == 5&]
|
|
PROG
|
(PARI) sum_of_bits(n) = if(n<1, 0, sum_of_bits(floor(n/2))+n%2)
(Haskell)
a014313 = f . a038447 where
f x = if x == 0 then 0 else 2 * f x' + b where (x', b) = divMod x 10
|
|
CROSSREFS
|
Cf. A000079, A018900, A014311, A014312, A023688, A023689, A023690, A023691 (Hamming weight = 1, 2, ..., 9).
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
Al Black (gblack(AT)nol.net)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|