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,4

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000523, A075104, A075105.

Sequence in context: A358090 A286343 A368399 * A196935 A226314 A036995

Adjacent sequences: A075103 A075104 A075105 * A075107 A075108 A075109

Keyword

nonn,frac

Author

Reinhard Zumkeller, Sep 02 2002

Status

approved