login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p such that Floor[p/3]+p is prime.
3

%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