OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
MAPLE
seq(nextprime(n^2+n)-(n^2+n), n=0..100); # Robert Israel, Jul 05 2017
MATHEMATICA
Table[k = 1; While[! PrimeQ[n^2 + n + k], k++]; k, {n, 0, 85}] (* Michael De Vlieger, Jul 04 2017 *)
PROG
(PARI) for(n=0, 85, k={my(k=1); while(!isprime(n^2+n+k), k++); k; }; print1(k", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Gionata Neri, Jul 03 2017
STATUS
approved