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: A106809 A106810 A137772 this_sequence A018895 A115615 A022237

Adjacent sequences: A138938 A138939 A138940 this_sequence A138942 A138943 A138944

nonn,bref

Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008