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
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
Programs
-
Haskell
import Data.Ratio ((%), numerator) a075105 n = numerator $ n % a000523 n -- Reinhard Zumkeller, Jul 08 2014
-
Mathematica
Table[n/Floor[Log[2,n]],{n,2,80}]//Numerator (* Harvey P. Dale, Feb 25 2018 *)
Formula
a(n) = n/A075104(n).
Comments