OFFSET
1,1
MATHEMATICA
lst={}; Do[p=9^n-8^n; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[Table[9^n-8^n, {n, 150}], PrimeQ] (* Harvey P. Dale, May 13 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 10 2008
STATUS
approved