OFFSET
1,1
COMMENTS
Conjectured to contain all primes > 7549. - Robert Israel, Sep 03 2014
EXAMPLE
a(3) = 11 = 2 + 3^2 = 7 + 2^2.
MAPLE
N = 1000: # to get all entries <= N
Primes:= select(isprime, {$1..N}):
Primes intersect {seq(seq(p + k^2, p = Primes), k=1..floor(sqrt(N)))}; # Robert Israel, Sep 03 2014
PROG
(PARI) lista(nn) = {forprime(p=2, nn, forprime(q=2, p-1, if (issquare(p-q), print1(p, ", "); break; ); ); ); } \\ Michel Marcus, Sep 03 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 03 2001
STATUS
approved