|
| |
|
|
A074496
|
|
a(n) = smallest prime > e^n.
|
|
5
|
|
|
|
2, 3, 11, 23, 59, 149, 409, 1097, 2999, 8111, 22027, 59879, 162779, 442439, 1202609, 3269029, 8886113, 24154957, 178482319, 485165237, 1318815761, 3584912873, 9744803489, 26489122147, 72004899361, 195729609461
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
COMMENTS
|
Where record values of floor[ln(n/n’)] occur, being n’ the arithmetic derivative of n. - Paolo P. Lava, Mar 20 2012
|
|
|
LINKS
|
Table of n, a(n) for n=0..25.
|
|
|
FORMULA
|
Lim_[n approaches infinity] a(n+1)/a(n) = e. - Jonathan Vos Post, Apr 30 2006
|
|
|
EXAMPLE
|
The first prime > e^3= 20.085.... is 23, so a(3) = 23.
|
|
|
MATHEMATICA
|
p[n_] := Module[{r, i}, r = 2; i = 1; While[r <= n, i = i + 1; r = Prime[i]]; r]; Table[p[E^n], {n, 1, 10}]
|
|
|
PROG
|
(PARI) for(n=1, 50, print1(nextprime(exp(n))", "))
|
|
|
CROSSREFS
|
Cf. A000040, A000149, A014210.
Sequence in context: A040994 A141123 A119641 * A065849 A136402 A137811
Adjacent sequences: A074493 A074494 A074495 * A074497 A074498 A074499
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Sep 26 2002
|
|
|
EXTENSIONS
|
More terms from Ralf Stephan, Mar 25 2003
Edited by N. J. A. Sloane, Dec 22 2006
|
|
|
STATUS
|
approved
|
| |
|
|
