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
Keywords
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.
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
Comments