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,1

Links

Table of n, a(n) for n=1..33.

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

Cf. A162573, A162574, A162575

Sequence in context: A037706 A378567 A175605 * A142166 A140719 A128448

Adjacent sequences: A162573 A162574 A162575 * A162577 A162578 A162579

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 06 2009

Extensions

Program by Charles R Greathouse IV, Oct 12 2009

Status

approved