OFFSET
1,1
COMMENTS
7^2-6^2=49-36=13,...
MATHEMATICA
lst={}; Do[p=7^n-6^n; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 10 2008
STATUS
approved