A088656 a(n) = floor( (2/(exp(1) - 2))^n ) for n >= 2, a(1) = 1.

1, 7, 21, 60, 167, 466, 1297, 3613, 10060, 28012, 77998, 217180, 604723, 1683804, 4688422, 13054548, 36349377, 101212019, 281817012, 784697597, 2184929553, 6083766752, 16939776315, 47167492325, 131334221349, 365689945495

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = floor( (2/(exp(1) - 2))^n ), with a(1) = 1.

Mathematica

Table[If[n==1, 1, Floor[(2/(E-2))^n]], {n, 40}]

Prog

(Magma) [n eq 1 select 1 else Floor((2/(Exp(1)-2))^n): n in [1..40]]; // G. C. Greubel, Dec 05 2022
(SageMath)
def A088656(n): return 1 if (n==1) else floor((2/(exp(1)-2))^n)
[A088656(n) for n in range(1, 41)] # G. C. Greubel, Dec 05 2022

Crossrefs

Sequence in context: A146464 A001354 A200930 * A146139 A083596 A082541

Adjacent sequences: A088653 A088654 A088655 * A088657 A088658 A088659

Keyword

nonn

Author

Roger L. Bagula, Nov 21 2003

Extensions

Edited by G. C. Greubel, Dec 05 2022

Status

approved