1,1
7^2-6^2=49-36=13,...
Table of n, a(n) for n=1..6.
lst={}; Do[p=7^n-6^n; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Cf. A062573
Sequence in context: A201040 A201550 A211897 * A076457 A227749 A016162
Adjacent sequences: A147666 A147667 A147668 * A147670 A147671 A147672
nonn
Vladimir Joseph Stephan Orlovsky, Nov 10 2008
approved