A162573 Primes of the form 2^x+x*y+2^y, with x and y integers of any sign.
2, 3, 5, 13, 17, 89, 137, 157, 257, 523, 547, 2089, 2659, 4217, 8821, 16553, 34981, 65537, 65761, 262433, 524309, 524353, 524971, 2097223, 2097289, 2097427, 2099431, 8390909, 10486243, 35652109, 134217757, 536871089, 536873279
Offset: 1
Keywords
Programs
-
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! ]
Comments