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