A093698 a(n) = floor( e^((n/2)*arccosh(1+sqrt(2))) ).

1, 2, 4, 9, 21, 45, 98, 210, 452, 971, 2085, 4478, 9618, 20654, 44355, 95252, 204549, 439262, 943298, 2025695, 4350099, 9341661, 20060837, 43079834, 92512195, 198666181, 426627554, 916165344, 1967427861, 4224971416, 9072954499

Offset

0,2

Links

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

Mathematica

Table[ Floor[E^(n/2*ArcCosh[1 + Sqrt[2]])], {n, 0, 30}]

Prog

(PARI) for(n=0, 30, print1(floor(exp((n/2)*acosh(1+sqrt(2)))), ", ")) \\ G. C. Greubel, Oct 01 2018
(Magma) [Floor(Exp((n/2)*Argcosh(1+Sqrt(2)))): n in [0..30]]; // G. C. Greubel, Oct 01 2018

Crossrefs

Cf. A093568.

Sequence in context: A018105 A035056 A332800 * A091619 A061439 A351644

Adjacent sequences: A093695 A093696 A093697 * A093699 A093700 A093701

Keyword

easy,nonn

Author

Robert G. Wilson v, Apr 09 2004

Status

approved