|
|
A074496
|
|
a(n) = smallest prime > e^n.
|
|
8
|
|
|
2, 3, 11, 23, 59, 149, 409, 1097, 2999, 8111, 22027, 59879, 162779, 442439, 1202609, 3269029, 8886113, 24154957, 65660003, 178482319, 485165237, 1318815761, 3584912873, 9744803489, 26489122147, 72004899361, 195729609461, 532048240609, 1446257064299, 3931334297161
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The first prime > e^3 = 20.085... is 23, so a(3) = 23.
|
|
MATHEMATICA
|
a[n_] := NextPrime[Exp[n]]; a /@ Range[0, 20] (* Giovanni Resta, Apr 03 2017 *)
|
|
PROG
|
(PARI) for(n=1, 50, print1(nextprime(exp(n))", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(18) inserted and more terms added by Amiram Eldar, Sep 30 2019
|
|
STATUS
|
approved
|
|
|
|