A162337 Primes p such that floor(p/3) is prime.

7, 11, 17, 23, 41, 53, 59, 71, 89, 113, 131, 179, 239, 251, 269, 293, 311, 383, 419, 449, 491, 503, 521, 593, 599, 683, 701, 719, 773, 809, 881, 941, 953, 1013, 1049, 1061, 1103, 1151, 1193, 1229, 1259, 1301, 1319, 1373, 1439, 1499, 1511, 1571, 1709, 1733

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 01 2009

Keywords

• nonn

Comments

Essentially the same as A094524. - R. J. Mathar, Jul 05 2009

Examples

			7 is in the sequence since floor(7/3) = 2 is prime; 89 is in the sequence since floor(89/3) = 29 is prime.
		

Crossrefs

Cf. A162338. Essentially the same as A094524.

Programs

Magma

[ p: p in PrimesUpTo(1800) | IsPrime(p div 3) ]; // Klaus Brockhaus, Jul 06 2009

Mathematica

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

Extensions

Edited and listed terms verified by Klaus Brockhaus, Jul 06 2009