[go: up one dir, main page]

login
A147671
Primes of the form : 9^n-8^n.
0
17, 2685817, 4555386192335572300559213161, 371616904162662789429456905017, 8591830681082909151487632391785043782074371844781522582861081817, 15210163976423790740121668878903464496715921225994590375394324312407011207180253342612172354203245908479382157462960757179523559095554271755561
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
STATUS
approved