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,1

Comments

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

Links

Table of n, a(n) for n=1..48.

Mathematica

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

Crossrefs

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

Sequence in context: A254447 A031392 A156980 * A108659 A086924 A108660

Adjacent sequences: A158717 A158718 A158719 * A158721 A158722 A158723

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 24 2009

Status

approved