A162575 Primes of the form 2^x+2*x+y+2^y, with x and y integers of any sign.
2, 5, 7, 11, 17, 19, 41, 43, 53, 61, 71, 79, 113, 139, 149, 179, 211, 277, 283, 541, 563, 1051, 2063, 2081, 2083, 2591, 4129, 4157, 8209, 8219, 8221, 8353, 16547, 32797, 32801, 32933, 33827, 65579, 65581, 66089, 131113, 131143, 131231, 131627, 135209
Offset: 1
Keywords
Programs
-
Mathematica
f[x_,y_]:=2^x+2*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