1,1

a={}; Do[p=(14^n-3^n)/11; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 10^2}]; a

Cf. A128029.

Sequence in context: A066161 A125040 A125042 this_sequence A078624 A075902 A013760

Adjacent sequences: A138939 A138940 A138941 this_sequence A138943 A138944 A138945

nonn

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