A099245 Numerator of relative frequency of number of ones in binary representation of n.

0, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 3, 1, 3, 3, 1, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 5, 1, 1, 1, 2, 1, 2, 2, 5, 1, 2, 2, 5, 2, 5, 5, 1, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 2, 3, 3, 4, 3, 4, 4, 5, 3

Offset

0,6

Comments

Denominator = A099246;

a(n)*A070939(n) = A099246(n)*A000120(n);

for n>0: a(n) = A000120(n)/A099244(n).

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Index entries for sequences related to binary expansion of n

Formula

a(n) = if n=0 then 0 else A000120(n)/GCD(A070939(n), A000120(n)).

Prog

(Haskell)
import Data.Ratio ((%), numerator)
a099245 n = numerator $ (a000120 n) % (a070939 n)
-- Reinhard Zumkeller, Oct 10 2013

Crossrefs

Cf. A007088.

Sequence in context: A276309 A165031 A286634 * A185331 A206474 A211999

Adjacent sequences: A099242 A099243 A099244 * A099246 A099247 A099248

Keyword

nonn,frac

Author

Reinhard Zumkeller, Oct 08 2004

Status

approved