login
A162576
Primes of the form x^2+2^x+y^2+2^y, with x and y nonnegative.
1
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,1
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! ]
PROG
(PARI) for(x=2, 100, for(y=1, x-1, p=x^2+2^x+y^2+2^y; if(isprime(p), print1(p", "))))
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Program by Charles R Greathouse IV, Oct 12 2009
STATUS
approved