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