login
A155022
Values of n such that n^a-+a are primes, a=7.
1
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,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
STATUS
approved