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, p1]], {n, 13^5}]; Print[a];
Sequence in context: A101699 A122148 A068736 * A156176 A013772 A034247
Adjacent sequences: A138760 A138761 A138762 * A138764 A138765 A138766
nonn,bref
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2008