A138930 Primes of the form (8^n-3^n)/5.
11, 97, 418993, 28823037382718881, 1980704062856484905159341969, 642775217703596110216784836917923148379301630095964749038433, 47428439751604713645494675459558567056117521481173860868835733244342769411181689
Offset: 1
Keywords
Crossrefs
Cf. A128025.
Programs
-
Mathematica
a={}; Do[p=(8^n-3^n)/5; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 10^2}]; a Select[Table[(8^n-3^n)/5,{n,100}],PrimeQ] (* Harvey P. Dale, Apr 18 2019 *)