1,1
a={}; Do[p1=Prime[n]; p2=Prime[n+1]; p3=p1^2+p2^3; p4=p1^3+p2^2; If[PrimeQ[p3-1]&&PrimeQ[p3+1]&&PrimeQ[p4-1]&&PrimeQ[p4+1], AppendTo[a, p4]], {n, 13^5}]; Print[a];
Sequence in context: A190947 A203910 A138762 * A015327 A079230 A165679
Adjacent sequences: A139774 A139775 A139776 * A139778 A139779 A139780
nonn,bref
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008