A155023 Values of n such that n^a-+a are primes, a=11.
0, 1770, 10182, 11700, 12090, 16548, 24192, 27570, 29142, 29148, 60648, 62790, 63120, 97110, 104502, 115140, 116718, 119682, 122130, 127728, 147210, 151848, 170292, 189318, 190452, 192738
Offset: 1
Keywords
Programs
-
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 *)