OFFSET
1,1
COMMENTS
The next term (a(4)) has 299 digits. - Harvey P. Dale, Dec 06 2017
MATHEMATICA
a={}; Do[p=(13^n-3^n)/10; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 16^2}]; a
Select[Table[(13^n-3^n)/10, {n, 300}], PrimeQ] (* Harvey P. Dale, Dec 06 2017 *)
CROSSREFS
KEYWORD
nonn,bref
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 16 2008
STATUS
approved