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: A106810 A161008 A137772 this_sequence A152070 A147531 A018895

Adjacent sequences: A138938 A138939 A138940 this_sequence A138942 A138943 A138944

nonn,bref

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