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
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A093568.
Programs
-
Magma
[Floor(Exp((n/2)*Argcosh(1+Sqrt(2)))): n in [0..30]]; // G. C. Greubel, Oct 01 2018
-
Mathematica
Table[ Floor[E^(n/2*ArcCosh[1 + Sqrt[2]])], {n, 0, 30}] -
PARI
for(n=0,30, print1(floor(exp((n/2)*acosh(1+sqrt(2)))), ", ")) \\ G. C. Greubel, Oct 01 2018