A162576 Primes of the form x^2+2^x+y^2+2^y, with x and y nonnegative.
11, 89, 103, 157, 277, 337, 601, 1181, 1301, 2269, 4243, 4297, 8369, 8461, 8681, 12601, 18749, 65809, 67961, 135601, 264637, 524681, 524969, 525773, 1049569, 2098717, 4326149, 8389237, 25166929, 33555089, 33555377, 34604033, 67109543
Offset: 1
Keywords
Programs
-
Mathematica
f[x_,y_]:=x^2+2^x+y^2+2^y;lst={};Do[Do[p=f[x,y];If[PrimeQ[p],AppendTo[lst,p]],{y,4*5!}],{x,4*5!}];Take[Union[lst],3*4! ] -
PARI
for(x=2,100,for(y=1,x-1,p=x^2+2^x+y^2+2^y;if(isprime(p),print1(p","))))
Extensions
Program by Charles R Greathouse IV, Oct 12 2009