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

Comments

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

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A162338. Essentially the same as A094524.

Sequence in context: A370009 A088176 A046132 * A056687 A088981 A257666

Adjacent sequences: A162334 A162335 A162336 * A162338 A162339 A162340

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 01 2009

Extensions

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

Status

approved