A000799 - OEIS

%I M0239 N0082 #60 Sep 08 2022 08:44:28

%S 2,2,2,4,6,10,18,32,56,102,186,341,630,1170,2184,4096,7710,14563,

%T 27594,52428,99864,190650,364722,699050,1342177,2581110,4971026,

%U 9586980,18512790,35791394,69273666,134217728,260301048,505290270,981706810,1908874353

%N a(n) = floor(2^n / n).

%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H Vincenzo Librandi, <a href="/A000799/b000799.txt">Table of n, a(n) for n = 1..300</a>

%F Sum_{n>=1} 1/a(n) = A193359. - _Amiram Eldar_, Apr 03 2021

%p seq(floor(2^n/n),n=1..40); # _Muniru A Asiru_, Oct 20 2018

%t Table[Quotient[2^n,n],{n,60}] (* _Vladimir Joseph Stephan Orlovsky_, May 07 2011 *)

%o (PARI) a(n)=1<<n\n

%o (Magma) [2^n div n : n in [1..40]]; // _Vincenzo Librandi_, Oct 14 2018

%o (GAP) List([1..40],n->Int(2^n/n)); # _Muniru A Asiru_, Oct 20 2018

%o (Python) for n in range(1, 40): print(int(2**n / n), end=", ") # _Stefano Spezia_, Oct 20 2018

%Y Cf. A000801, A053638, A065482, A082482, A071354, A193359.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_