A155022 Values of n such that n^a-+a are primes, a=7.
0, 66, 516, 3450, 7200, 8850, 12480, 16500, 18234, 18534, 19440, 21246, 26466, 28596, 39036, 41634, 43500, 43710, 54186, 54876, 59316, 68886, 77184, 81540, 82134, 88044, 89064, 95796, 97530, 98610, 108294, 111864, 113160, 120534, 120696
Offset: 1
Keywords
Programs
-
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 *)