OFFSET
1,2
MATHEMATICA
a={}; Do[m=n^7; If[PrimeQ[m-7]&&PrimeQ[m+7], AppendTo[a, n]], {n, 0, 9!}]; a
Select[Range[0, 130000], And@@PrimeQ[#^7+{7, -7}]&] (* Harvey P. Dale, Aug 26 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 19 2009
STATUS
approved