A154713 - OEIS

%I #5 Jun 19 2012 17:07:26

%S 8,1728,110592,287496,474552,2000376,7077888,34012224,191102976,

%T 401947272,631628712,5890514616,14996130696,15550119936,19421724672,

%U 32339798856,35158608576,62949797352,68518346688,76657300992

%N Cubes such that cube-+5 are primes.

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

%F A087696 INTERSECT A000578. [From _R. J. Mathar_, Jan 15 2009]

%t lst={};Do[p=n^3;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,p]],{n,2,2*7!,2}];lst

%t Select[Range[4300]^3,And@@PrimeQ[#+{5,-5}]&] (* _Harvey P. Dale_, Jun 19 2012 *)

%Y Cf. A144938, A154709, A154710, A154711, A154712

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jan 14 2009