%I #4 Jun 20 2013 16:24:26
%S 0,1770,10182,11700,12090,16548,24192,27570,29142,29148,60648,62790,
%T 63120,97110,104502,115140,116718,119682,122130,127728,147210,151848,
%U 170292,189318,190452,192738
%N Values of n such that n^a-+a are primes, a=11.
%t a={};Do[m=n^11;If[PrimeQ[m-11]&&PrimeQ[m+11],AppendTo[a,n]],{n,0,9!}];a
%t Select[Range[0,200000],And@@PrimeQ[#^11+{11,-11}]&] (* _Harvey P. Dale_, Jun 20 2013 *)
%Y Cf. A108701, A143904, A155021, A155022
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 19 2009