OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
lst = {}; Do[ If[ PrimeQ[x^y + y^x], AppendTo[lst, {x, y}]], {x, 3, 750}, {y, 2, x - 1}]; Transpose[ lst][[2]] (* Robert G. Wilson v, Aug 17 2009 *)
PROG
(PARI) for(i=3, 999, for(j=2, i-1, isprime(i^j+j^i)|next; print1(j", "); break))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jul 04 2009
EXTENSIONS
More terms from Robert G. Wilson v, Aug 17 2009
STATUS
approved