OFFSET
1,1
MATHEMATICA
a={}; Do[p=(14^n-3^n)/11; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 10^2}]; a
Select[Table[(14^n-3^n)/11, {n, 1000}], PrimeQ] (* Harvey P. Dale, Jul 22 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 16 2008
STATUS
approved