OFFSET
1,1
COMMENTS
8^7-7^7=2097152-823543=1273609,...
The next term (a(7)) has 103 digits. - Harvey P. Dale, Jul 05 2023
MATHEMATICA
lst={}; Do[p=8^n-7^n; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[Table[8^n-7^n, {n, 100}], PrimeQ] (* Harvey P. Dale, Jul 05 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 10 2008
STATUS
approved