login
Denominator of n/floor(log_2(n)); numerator is A075105(n).
4

%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