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
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
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 *)
Comments