login
A154713
Cubes such that cube-+5 are primes.
1
8, 1728, 110592, 287496, 474552, 2000376, 7077888, 34012224, 191102976, 401947272, 631628712, 5890514616, 14996130696, 15550119936, 19421724672, 32339798856, 35158608576, 62949797352, 68518346688, 76657300992
OFFSET
1,1
LINKS
FORMULA
A087696 INTERSECT A000578. [From R. J. Mathar, Jan 15 2009]
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved