A322852 a(n) = floor(e^(e^(n/e))-1).
1, 3, 7, 19, 76, 539, 8873, 505531, 173789117, 801854912659, 157566761299009378, 6992370157470308367564294, 780243941119853800883766562690845097, 7117897437316498836240639309909700742341112693648555
Offset: 0
Keywords
Programs
-
Magma
[Floor(Exp(Exp(n*Exp(-1))) -1): n in [0..14]]; // G. C. Greubel, Feb 14 2019
-
Mathematica
Array[Floor[E^(E^(#/E)) - 1] &, 14, 0] (* Michael De Vlieger, Jan 04 2019 *)
-
PARI
default(realprecision, 10000); A322852(n) = floor(exp(exp(n/exp(1))) -1); \\ Antti Karttunen, Jan 17 2019
-
Sage
[floor(exp(exp(n*exp(-1))) -1) for n in (0..14)] # G. C. Greubel, Feb 14 2019