|
%I #18 Sep 08 2022 08:45:04
%S 2,2,3,4,6,11,18,32,57,102,186,341,630,1170,2185,4096,7710,14564,
%T 27594,52429,99864,190650,364722,699051,1342177,2581110,4971027,
%U 9586981,18512790,35791394,69273666,134217728,260301048,505290270,981706811,1908874354,3714566310
%N a(n) = round( 2^n/n ).
%H Harry J. Smith, <a href="/A065482/b065482.txt">Table of n, a(n) for n = 1..300</a>
%F a(n) = A082894(n)/n.
%F a(n) = floor((2^n + floor(n/2))/n).
%t Table[Floor[(Floor[n/2]+2^n)/n], {n, 1, 100}]
%o (PARI) { for (n=1, 300, write("b065482.txt", n, " ", round(2^n/n)) ) } \\ _Harry J. Smith_, Oct 20 2009
%o (Magma) [Round(2^n/n): n in [1..30]]; // _G. C. Greubel_, Jan 18 2018
%Y Cf. A000799, A053638, A082893-A082900.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 03 2001
|
