|
%I #12 Mar 16 2021 15:37:15
%S 1,2,15,1618,528491311,514843556263457213182265,
%T 28511235679461510605581038657982805983853648817939444953417128836
%N a(n) = floor(e^(e^n)).
%C The next term is too large to include.
%t $MaxExtraPrecision = 128; Table[ Floor[ Exp[ Exp[ n]]], {n, 0, 6}] (* _Robert G. Wilson v_, Jan 07 2007 *)
%o (PARI) default(realprecision,10000);for(n=-1,5,print1(floor(exp(exp(n))),",")) \\ _Edward Jiang_, Sep 06 2014
%Y Cf. A001113, A016066, A096404.
%K nonn
%O -1,2
%A _N. J. A. Sloane_, Aug 15 2004
|
