A176871 - OEIS

%I #2 Mar 31 2012 12:38:36

%S 11,13,19,29,127,24391,357913,571789

%N Prime numbers p such that p-q^3 is a prime number, (q is a prime number, q^3=LargestCube, LargestCube <= p).

%C 3-1^3=2, 11-2^3=3, 13-2^3=5, 19-2^3=11, 29-3^3=2, 127-5^3=2,..

%t lst={};Do[q=Floor[n^(1/3)];p=n-q^3;If[PrimeQ[p]&&PrimeQ[n]&&PrimeQ[q],AppendTo[lst,n]],{n,2*9!}];lst

%Y Cf. A135932, A176864, A176865, A176870

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 27 2010