%I #4 May 13 2018 09:55:32
%S 17,2685817,4555386192335572300559213161,
%T 371616904162662789429456905017,
%U 8591830681082909151487632391785043782074371844781522582861081817,15210163976423790740121668878903464496715921225994590375394324312407011207180253342612172354203245908479382157462960757179523559095554271755561
%N Primes of the form : 9^n-8^n.
%t lst={};Do[p=9^n-8^n;If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst
%t Select[Table[9^n-8^n,{n,150}],PrimeQ] (* _Harvey P. Dale_, May 13 2018 *)
%Y Cf. A016185, A059803
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Nov 10 2008