|
%I #13 Dec 06 2022 07:57:57
%S 1,7,21,60,167,466,1297,3613,10060,28012,77998,217180,604723,1683804,
%T 4688422,13054548,36349377,101212019,281817012,784697597,2184929553,
%U 6083766752,16939776315,47167492325,131334221349,365689945495
%N a(n) = floor( (2/(exp(1) - 2))^n ) for n >= 2, a(1) = 1.
%H G. C. Greubel, <a href="/A088656/b088656.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = floor( (2/(exp(1) - 2))^n ), with a(1) = 1.
%t Table[If[n==1, 1, Floor[(2/(E-2))^n]], {n,40}]
%o (Magma) [n eq 1 select 1 else Floor((2/(Exp(1)-2))^n): n in [1..40]]; // _G. C. Greubel_, Dec 05 2022
%o (SageMath)
%o def A088656(n): return 1 if (n==1) else floor((2/(exp(1)-2))^n)
%o [A088656(n) for n in range(1,41)] # _G. C. Greubel_, Dec 05 2022
%K nonn
%O 1,2
%A _Roger L. Bagula_, Nov 21 2003
%E Edited by _G. C. Greubel_, Dec 05 2022
|
