login
A062409
Numbers k such that floor(e*k) is prime.
3
1, 2, 5, 7, 11, 16, 22, 25, 27, 33, 36, 38, 47, 55, 58, 60, 64, 66, 86, 88, 89, 97, 99, 100, 102, 108, 113, 122, 124, 128, 130, 141, 155, 163, 172, 192, 205, 216, 227, 228, 236, 258, 261, 270, 272, 280, 283, 303, 305, 309, 314, 325, 334, 342, 345, 356, 367, 373
OFFSET
1,2
LINKS
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
Sequence in context: A239072 A317242 A217302 * A342939 A089781 A144832
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 08 2001
STATUS
approved