1,1
a={}; Do[p1=Prime[n]; p2=Prime[n+1]; pp=p1^3+p2^2; If[PrimeQ[pp-1]&&PrimeQ[pp+1], AppendTo[a, p2]], {n, 16^3}]; Print[a];
Sequence in context: A190826 A045688 A084223 * A171720 A091751 A055559
Adjacent sequences: A138752 A138753 A138754 * A138756 A138757 A138758
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2008