%I #13 Jul 07 2014 13:33:29
%S 3,31,37,43,47,53,59,97,103,109,113,131,157,163,179,191,197,223,229,
%T 241,251,257,263,307,311,317,367,373,383,389,433,439,449,461,499,521,
%U 571,587,593,631,647,653,659,691,709,719,757,769,797,823,829,857,863,907
%N Primes of the form floor(n*Pi).
%H Vincenzo Librandi, <a href="/A077546/b077546.txt">Table of n, a(n) for n = 1..5000</a>
%H Keenan Monks, Sarah Peluse, Lynnelle Ye, <a href="http://arxiv.org/abs/1407.1290">Strings of special primes in arithmetic progressions</a>, arXiv:1407.1290 [math.NT], 2014.
%t Select[Floor[Range[0,100000]*Pi],PrimeQ] (* _Vincenzo Librandi_, Dec 09 2011 *)
%o (PARI) lista(nn) = {for (n=1, nn, if (isprime(p=floor(Pi*n)), print1(p, ", ")););} \\ _Michel Marcus_, Jul 07 2014
%o (PARI) select(isprime, [1..1000]*Pi\1) \\ _Charles R Greathouse IV_, Jul 07 2014
%Y Cf. A062408.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 09 2002
%E More terms from _Sascha Kurz_, Jan 12 2003