A099246 Denominator of relative frequency of number of ones in binary representation of n.

1, 1, 2, 1, 3, 3, 3, 1, 4, 2, 2, 4, 2, 4, 4, 1, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1, 6, 3, 3, 2, 3, 2, 2, 3, 3, 2, 2, 3, 2, 3, 3, 6, 3, 2, 2, 3, 2, 3, 3, 6, 2, 3, 3, 6, 3, 6, 6, 1, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7

Offset

0,3

Comments

Numerator = A099245;

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

for n>0: a(n) = A070939(n)/A099244(n);

a(n) = 1 iff n = A000225(k).

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 1 else A070939(n)/GCD(A070939(n), A000120(n)).

Prog

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

Crossrefs

Cf. A007088.

Sequence in context: A308093 A264154 A302641 * A303119 A039775 A302291

Adjacent sequences: A099243 A099244 A099245 * A099247 A099248 A099249

Keyword

nonn,frac

Author

Reinhard Zumkeller, Oct 08 2004

Status

approved