OFFSET
1,1
MATHEMATICA
Take[Select[Intersection[Flatten[Table[x^y+y^z+z^x, {x, 2, 60}, {y, 2, 60}, {z, 2, 60}]]], PrimeQ[ # ]&], 40]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Oct 04 2006
STATUS
approved