|
%I #10 Oct 27 2018 22:43:34
%S 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,
%T 15,31,32,33,34,7,36,37,38,39,8,41,42,43,44,9,46,47,48,49,10,51,52,53,
%U 54,11,56,57,58,59,12,61,62,63,32,65,11,67,34,23,35,71,12,73,37,25,38
%N Numerator of n/floor(log_2(n)); denominator is A075106(n).
%H Reinhard Zumkeller, <a href="/A075105/b075105.txt">Table of n, a(n) for n = 2..10000</a>
%F a(n) = n/A075104(n).
%t Table[n/Floor[Log[2,n]],{n,2,80}]//Numerator (* _Harvey P. Dale_, Feb 25 2018 *)
%o (Haskell)
%o import Data.Ratio ((%), numerator)
%o a075105 n = numerator $ n % a000523 n
%o -- _Reinhard Zumkeller_, Jul 08 2014
%Y Cf. A000523, A075104, A075106.
%K nonn,frac
%O 2,1
%A _Reinhard Zumkeller_, Sep 02 2002
|
