1,1

lst={}; Do[p=Prime[n]; If[PrimeQ[p=9*p+2^p], AppendTo[lst, p]], {n, 5!}]; lst

Cf. A057664, A155841, A155842

Sequence in context: A061331 A084003 A118095 this_sequence A039667 A045077 A030632

Adjacent sequences: A155840 A155841 A155842 this_sequence A155844 A155845 A155846

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 28 2009