1,1
lst={}; Do[p=Prime[n]; If[PrimeQ[p=13*p+2^p], AppendTo[lst, p]], {n, 5!}]; lst
Cf. A057664, A155841, A155842, A155843
Sequence in context: A141944 A180550 A176134 * A141961 A142661 A124096
Adjacent sequences: A155841 A155842 A155843 * A155845 A155846 A155847
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 28 2009