A062409 Numbers k such that floor(e*k) is prime.

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

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

Cf. A022843, A077545.

Sequence in context: A239072 A317242 A217302 * A342939 A089781 A144832

Adjacent sequences: A062406 A062407 A062408 * A062410 A062411 A062412

Keyword

nonn

Author

Jason Earls, Jul 08 2001

Status

approved