%I #9 Sep 08 2022 08:45:46
%S 7,11,17,23,41,53,59,71,89,113,131,179,239,251,269,293,311,383,419,
%T 449,491,503,521,593,599,683,701,719,773,809,881,941,953,1013,1049,
%U 1061,1103,1151,1193,1229,1259,1301,1319,1373,1439,1499,1511,1571,1709,1733
%N Primes p such that floor(p/3) is prime.
%C Essentially the same as A094524. - _R. J. Mathar_, Jul 05 2009
%e 7 is in the sequence since floor(7/3) = 2 is prime; 89 is in the sequence since floor(89/3) = 29 is prime.
%t lst={};Do[r=Prime[n];If[PrimeQ[p=Floor[r/3]],AppendTo[lst,r]],{n,6!}];lst
%o (Magma) [ p: p in PrimesUpTo(1800) | IsPrime(p div 3) ]; // _Klaus Brockhaus_, Jul 06 2009
%Y Cf. A162338. Essentially the same as A094524.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 01 2009
%E Edited and listed terms verified by _Klaus Brockhaus_, Jul 06 2009