|
%I #2 Mar 31 2012 12:38:20
%S 2,13,31,67,73,103,181,193,211,307,337,433,463,571,577,607,643,661,
%T 733,757,787,823,937,967,991,1021,1117,1201,1291,1567,1597,1621,1723,
%U 1783,1831,1993,2017,2083,2143,2251,2281,2287,2341,2377,2521,2593,2647,2713
%N Primes p such that Floor[p/3]+p is prime.
%C Floor[13/3]+13=17, ...
%t lst={};Do[p=Prime[n];If[PrimeQ[Floor[p/3]+p],AppendTo[lst,p]],{n,6!}];lst
%Y Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009
|
