OFFSET
1,1
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.
MATHEMATICA
Select[Floor[Range[0, 100000]*Pi], PrimeQ] (* Vincenzo Librandi, Dec 09 2011 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 09 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 12 2003
STATUS
approved