A077546 Primes of the form floor(n*Pi).

3, 31, 37, 43, 47, 53, 59, 97, 103, 109, 113, 131, 157, 163, 179, 191, 197, 223, 229, 241, 251, 257, 263, 307, 311, 317, 367, 373, 383, 389, 433, 439, 449, 461, 499, 521, 571, 587, 593, 631, 647, 653, 659, 691, 709, 719, 757, 769, 797, 823, 829, 857, 863, 907

Offset: 1

Author

Amarnath Murthy, Nov 09 2002

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..5000
• Keenan Monks, Sarah Peluse, Lynnelle Ye, Strings of special primes in arithmetic progressions, arXiv:1407.1290 [math.NT], 2014.

Crossrefs

Cf. A062408.

Programs

Mathematica

Select[Floor[Range[0,100000]*Pi],PrimeQ] (* Vincenzo Librandi, Dec 09 2011 *)

PARI

lista(nn) = {for (n=1, nn, if (isprime(p=floor(Pi*n)), print1(p, ", ")););} \\ Michel Marcus, Jul 07 2014

PARI

select(isprime, [1..1000]*Pi\1) \\ Charles R Greathouse IV, Jul 07 2014

Extensions

More terms from Sascha Kurz, Jan 12 2003