login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A099245
Numerator of relative frequency of number of ones in binary representation of n.
4
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).
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: A165031 A379592 A286634 * A185331 A206474 A211999
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Oct 08 2004
STATUS
approved