OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, Perfect Power
MATHEMATICA
Take[#[[1]]^#[[2]]&/@Select[Tuples[Range[500], 2], PrimeQ[Total[#]] && #[[2]]> 1&]//Union, 50] (* Harvey P. Dale, Jan 18 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 07 2007
STATUS
approved