login
A158720
Primes p such that Floor[p/3]+p is prime.
3
2, 13, 31, 67, 73, 103, 181, 193, 211, 307, 337, 433, 463, 571, 577, 607, 643, 661, 733, 757, 787, 823, 937, 967, 991, 1021, 1117, 1201, 1291, 1567, 1597, 1621, 1723, 1783, 1831, 1993, 2017, 2083, 2143, 2251, 2281, 2287, 2341, 2377, 2521, 2593, 2647, 2713
OFFSET
1,1
COMMENTS
Floor[13/3]+13=17, ...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[Floor[p/3]+p], AppendTo[lst, p]], {n, 6!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved