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,2

Links

Table of n, a(n) for n=0..13.

Mathematica

Array[Floor[E^(E^(#/E)) - 1] &, 14, 0] (* Michael De Vlieger, Jan 04 2019 *)

Prog

(PARI)
default(realprecision, 10000);
A322852(n) = floor(exp(exp(n/exp(1))) -1); \\ Antti Karttunen, Jan 17 2019
(Magma) [Floor(Exp(Exp(n*Exp(-1))) -1): n in [0..14]]; // G. C. Greubel, Feb 14 2019
(Sage) [floor(exp(exp(n*exp(-1))) -1) for n in (0..14)] # G. C. Greubel, Feb 14 2019

Crossrefs

Cf. A322848. A322851 is a base-2 analog.

Sequence in context: A328159 A163571 A217611 * A243583 A215487 A146037

Adjacent sequences: A322849 A322850 A322851 * A322853 A322854 A322855

Keyword

nonn

Author

Greg Huber, Dec 28 2018

Status

approved