OFFSET
1,1
COMMENTS
3^3 - 4 = 23, 3^3 + 4 = 31
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[a=n^3; If[PrimeQ[a-4]&&PrimeQ[a+4], AppendTo[lst, n]], {n, 8!}]; lst
Select[Range[2, 13000], And@@PrimeQ[#^3+{4, -4}]&] (* Harvey P. Dale, May 13 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 14 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
STATUS
approved