OFFSET
0,1
COMMENTS
If n is in A027863 then a(n) = n + 2, otherwise a(n) > n + 2. All terms are even. Corresponding primes are 5, 41, 29, 61, 617, ...
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 0..10000
MATHEMATICA
lk[n_]:=Module[{k=n+2, c=n^2+(n+1)^2}, While[!PrimeQ[c+k^2], k++]; k]; Array[ lk, 70, 0] (* Harvey P. Dale, Aug 06 2015 *)
PROG
(PARI) a(n)=k=n+2; while(!isprime(n^2+(n+1)^2+k^2), k++); k
vector(100, n, a(n-1)) \\ Jens Kruse Andersen, Aug 26 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 24 2014
EXTENSIONS
Corrected and extended by Jens Kruse Andersen, Aug 26 2014
STATUS
approved