A154713 Cubes such that cube-+5 are primes.

8, 1728, 110592, 287496, 474552, 2000376, 7077888, 34012224, 191102976, 401947272, 631628712, 5890514616, 14996130696, 15550119936, 19421724672, 32339798856, 35158608576, 62949797352, 68518346688, 76657300992

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A144938, A154709, A154710, A154711, A154712

Programs

Mathematica

lst={};Do[p=n^3;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,p]],{n,2,2*7!,2}];lst
Select[Range[4300]^3,And@@PrimeQ[#+{5,-5}]&] (* Harvey P. Dale, Jun 19 2012 *)

Formula

A087696 INTERSECT A000578. [From R. J. Mathar, Jan 15 2009]