|
%I #21 Feb 05 2020 15:50:37
%S 1,14,1617,528491310,514843556263457213182264,
%T 28511235679461510605581038657982805983853648817939444953417128835
%N a(n) = floor(e^(e^n) - 1).
%C Analog of A051179 replacing 2 with e.
%t Table[Floor[E^(E^n)-1],{n,0,5}] (* _Harvey P. Dale_, Feb 05 2020 *)
%o (PARI)
%o default(realprecision, 10000);
%o A322848(n) = floor(exp(exp(n)))-1; \\ _Antti Karttunen_, Jan 17 2019
%Y Cf. A051179.
%K nonn,easy
%O 0,2
%A _Greg Huber_, Dec 28 2018
| 