|
%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_
|
