A075105 Numerator of n/floor(log_2(n)); denominator is A075106(n).

2, 3, 2, 5, 3, 7, 8, 3, 10, 11, 4, 13, 14, 5, 4, 17, 9, 19, 5, 21, 11, 23, 6, 25, 13, 27, 7, 29, 15, 31, 32, 33, 34, 7, 36, 37, 38, 39, 8, 41, 42, 43, 44, 9, 46, 47, 48, 49, 10, 51, 52, 53, 54, 11, 56, 57, 58, 59, 12, 61, 62, 63, 32, 65, 11, 67, 34, 23, 35, 71, 12, 73, 37, 25, 38

Offset

2,1

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000523, A075104, A075106.

Sequence in context: A065988 A335285 A336268 * A265675 A094020 A165609

Adjacent sequences: A075102 A075103 A075104 * A075106 A075107 A075108

Keyword

nonn,frac

Author

Reinhard Zumkeller, Sep 02 2002

Status

approved