A075106 Denominator of n/floor(log_2(n)); numerator is A075105(n).

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

Offset: 2

Author

Reinhard Zumkeller, Sep 02 2002

Keywords

• nonn
• frac

Links

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

Crossrefs

Cf. A000523, A075104, A075105.

Programs

Haskell

import Data.Ratio ((%), denominator)
a075106 n = denominator $ n % a000523 n
-- Reinhard Zumkeller, Jul 08 2014

Mathematica

Table[n/Floor[Log[2,n]],{n,2,110}]//Denominator (* Harvey P. Dale, Feb 25 2018 *)

Formula

a(n) = A000523(n)/A075104(n).