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
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[400],PrimeQ[Floor[E #]]&] (* Harvey P. Dale, Feb 12 2015 *)
-
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