1,1
7^2-6^2=49-36=13,...
lst={}; Do[p=7^n-6^n; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Cf. A062573
Sequence in context: A124298 A201040 A201550 * A076457 A016162 A155623
Adjacent sequences: A147666 A147667 A147668 * A147670 A147671 A147672
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Nov 10 2008