A158720 Primes p such that Floor[p/3]+p is prime.

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

Author

Vladimir Joseph Stephan Orlovsky, Mar 24 2009

Keywords

• nonn

Comments

Floor[13/3]+13=17, ...

Crossrefs

Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[Floor[p/3]+p],AppendTo[lst,p]],{n,6!}];lst