|
%I #18 Oct 06 2019 18:17:43
%S 1,5,3,25,20,18,15,125,111,101,91,91,84,79,74,625,588,556,526,505,481,
%T 459,439,458,440,423,407,396,382,370,358,3125,3030,2941,2857,2780,
%U 2705,2634,2566,2525,2463,2405,2349,2297,2246,2198,2151,2291
%N Integer part of decimal 'base-2 looking' numbers divided by their actual base-2 values (denominator of a(n) is n, numerator is n written in binary but read in decimal).
%H Michael De Vlieger, <a href="/A032532/b032532.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor(A007088(n)/n).
%e 1_2 / 1_10 = 1/1 = 1;
%e 10_2 / 2_10 = 10/2 = 5;
%e 11_2 / 3_10 = 11/3 = 3.666666666...;
%e 100_2 / 4_10 = 100/4 = 25;
%e 101_2 / 5_10 = 101/5 = 20.2.
%t Array[Floor[FromDigits[IntegerDigits[#, 2]]/#] &, 48] (* _Michael De Vlieger_, Oct 06 2019 *)
%Y Cf. A032533, A032534, A007088.
%K nonn,easy
%O 1,2
%A _Patrick De Geest_, Apr 15 1998
|
