OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
lst={}; Do[m=n^3; If[PrimeQ[m-3]&&PrimeQ[m+3], AppendTo[lst, n]], {n, 0, 10^4}]; lst
Select[Range[0, 4000, 2], AllTrue[#^3+{3, -3}, PrimeQ]&] (* Harvey P. Dale, Jul 29 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 04 2008
STATUS
approved