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: A044185 A044566 A141944 this_sequence A141961 A142661 A124096
Adjacent sequences: A155841 A155842 A155843 this_sequence A155845 A155846 A155847
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 28 2009
Search completed in 0.002 seconds