A079593 Primes equal to floor(Pi*x) where x is prime.
53, 59, 97, 191, 223, 229, 317, 719, 757, 977, 983, 1039, 1171, 1259, 1567, 1699, 1787, 2503, 2579, 2711, 2767, 2861, 2887, 3037, 3169, 3301, 3433, 3823, 3923, 4049, 4093, 4483, 4583, 4621, 4973, 5237, 5507, 5689, 5903, 6217, 6317, 6449, 6481, 6763, 6977, 7027
Offset: 1
Keywords
Examples
The smallest prime x such that floor(x*Pi) is prime, is 17. floor(17*Pi)=53, so 53 is the first term of the sequence.
Programs
-
Mathematica
For[i = 1, i < 1000, If[PrimeQ[IntegerPart[Pi*Prime[i]]] == True, Print[IntegerPart[Pi*Prime[i]]]]; i++ ]