|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
|