|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
|