OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[400], PrimeQ[Floor[E #]]& (* Harvey P. Dale, Feb 12 2015 *)
PROG
(PARI) je=[]; for(n=0, 1000, if(isprime(floor(exp(1)*n)), je=concat(je, n), )); je
(PARI) { default(realprecision, 50); n=0; e=exp(1); for (m=1, 10^5, if (isprime(floor(e*m)), write("b062409.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 07 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 08 2001
STATUS
approved