login
A099246
Denominator of relative frequency of number of ones in binary representation of n.
4
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).
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 A373953
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Oct 08 2004
STATUS
approved