OFFSET
1,1
FORMULA
p=a^2+b^3;q=a^3+b^2
EXAMPLE
MATHEMATICA
pgpQ[{b_, a_}]:=Module[{p1=a^2+b^3, p2=b^2+a^3}, AllTrue[{p1, p2}, PrimeQ] && p1<p2]; Take[#[[2]]^2+#[[1]]^3&/@Select[Subsets[Range[100], {2}], pgpQ]//Sort, 50] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 30 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Tomas Xordan, May 27 2007
STATUS
approved