%I #4 Aug 26 2013 11:06:37
%S 0,66,516,3450,7200,8850,12480,16500,18234,18534,19440,21246,26466,
%T 28596,39036,41634,43500,43710,54186,54876,59316,68886,77184,81540,
%U 82134,88044,89064,95796,97530,98610,108294,111864,113160,120534,120696
%N Values of n such that n^a-+a are primes, a=7.
%t a={};Do[m=n^7;If[PrimeQ[m-7]&&PrimeQ[m+7],AppendTo[a,n]],{n,0,9!}];a
%t Select[Range[0,130000],And@@PrimeQ[#^7+{7,-7}]&] (* _Harvey P. Dale_, Aug 26 2013 *)
%Y Cf. A108701, A143904, A155021
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 19 2009
|