1,1
a={}; Do[p=(13^n-3^n)/10; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 16^2}]; a
Cf. A128028.
Sequence in context: A185887 A186838 A204654 * A203894 A152070 A147531
Adjacent sequences: A138938 A138939 A138940 * A138942 A138943 A138944
nonn,bref
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008