1,1
a={}; Do[p1=Prime[n]; p2=Prime[n+1]; pp=p1^3+p2^2; If[(p2-p1)==2&&PrimeQ[pp-1]&&PrimeQ[pp+1], AppendTo[a, p2]], {n, 10^4}]; Print[a];
Sequence in context: A204471 A139778 A178506 * A117921 A052357 A164521
Adjacent sequences: A139776 A139777 A139778 * A139780 A139781 A139782
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008