A059303 Numbers k such that floor(e^k) + 1 is prime.
0, 1, 5, 7, 10, 105, 22959, 34888
Offset: 1
Links
- Eric Weisstein's World of Mathematics, e-Prime
Programs
-
Mathematica
Select[Range[40000], PrimeQ[Floor[E^#] + 1] &] (* G. C. Greubel, Jan 06 2017 *)
-
PARI
isok(k) = isprime(floor(exp(k))+1) \\ Michel Marcus, Jun 08 2013
Extensions
Corrected by Francisco Salinas (franciscodesalinas(AT)hotmail.com), Dec 25 2001
a(7)-a(8) from Donovan Johnson
Comments