|
%I #4 Apr 18 2019 16:23:48
%S 11,97,418993,28823037382718881,1980704062856484905159341969,
%T 642775217703596110216784836917923148379301630095964749038433,
%U 47428439751604713645494675459558567056117521481173860868835733244342769411181689
%N Primes of the form (8^n-3^n)/5.
%t a={}; Do[p=(8^n-3^n)/5; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 10^2}]; a
%t Select[Table[(8^n-3^n)/5,{n,100}],PrimeQ] (* _Harvey P. Dale_, Apr 18 2019 *)
%Y Cf. A128025.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 16 2008
|
