%I #6 May 19 2019 09:29:41

%S 3,11,13,19,29,67,71,83,101,107,127,223,227,229,233,239,257,263,269,

%T 277,283,313,317,523,541,571,601,613,619,643,661,691,709,1013,1019,

%U 1031,1061,1097,1103,1109,1151,1163,1181,1193,1223,1229,1277,1283,1307,1733

%N Prime numbers p such that p-LargestCube is prime, (LargestCube <= p).

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

%H Harvey P. Dale, <a href="/A176870/b176870.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Prime[Range[300]],PrimeQ[#-Floor[Surd[#,3]]^3]&] (* _Harvey P. Dale_, May 19 2019 *)

%Y Cf. A135932, A176864, A176865

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 27 2010