OFFSET
1,1
LINKS
Robert Israel and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 800 terms from Israel)
MAPLE
N:= 10^6; # to get all terms <= N
A:= select(t -> t <= N and isprime(t), {seq(seq(x^y+x+y, y = 2..floor(log[x](N-x))), x=2..floor(sqrt(N)))}, N):
sort(convert(A, list)); # Robert Israel, Sep 18 2024
PROG
(PARI) list(lim)=my(v=List()); forstep(y=3, oo, 2, if(2^y+y+2>lim, break); for(x=2, oo, my(p=x^y+x+y); if(p>lim, break); if(isprime(p), listput(v, p)))); Set(v) \\ Charles R Greathouse IV, Sep 18 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Jan 12 2015
STATUS
approved