%I #10 Oct 27 2018 22:43:52
%S 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,
%T 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,
%U 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
%N Denominator of n/floor(log_2(n)); numerator is A075105(n).
%H Reinhard Zumkeller, <a href="/A075106/b075106.txt">Table of n, a(n) for n = 2..10000</a>
%F a(n) = A000523(n)/A075104(n).
%t Table[n/Floor[Log[2,n]],{n,2,110}]//Denominator (* _Harvey P. Dale_, Feb 25 2018 *)
%o (Haskell)
%o import Data.Ratio ((%), denominator)
%o a075106 n = denominator $ n % a000523 n
%o -- _Reinhard Zumkeller_, Jul 08 2014
%Y Cf. A000523, A075104, A075105.
%K nonn,frac
%O 2,4
%A _Reinhard Zumkeller_, Sep 02 2002