|
%I #5 Jul 06 2016 00:15:09
%S 2,5,7,11,47,89,97,113,163,227,283,367,373,431,439,503,643,823,877,
%T 887,941,991,1013,1049,1093,1303,1327,1439,1523,1567,1609,1879,1901,
%U 1949,1951,1993,2113,2179,2221,2347,2399,2411,2477,2503,2591,2689,2711,2797
%N Primes p for which floor(E*p) is prime.
%H G. C. Greubel, <a href="/A168031/b168031.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[6! ]],PrimeQ[Floor[E*# ]]&]
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Nov 17 2009
|
