OFFSET
1,1
EXAMPLE
MATHEMATICA
f[x_, y_]:=2^x+x+y+2^y; lst={}; Do[Do[p=f[x, y]; If[PrimeQ[p], AppendTo[lst, p]], {y, -5!, 6!}], {x, -5!, 6!}]; Take[Union[lst], 5! ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 06 2009
EXTENSIONS
Examples added by R. J. Mathar, Sep 17 2009
STATUS
approved