OFFSET
3,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 3..10000
MATHEMATICA
Array[Block[{k = 1, p}, While[Set[p, Prime[k + # - 1]] >= Total@ Prime@ {k, k + 1}, k++]; p] &, 57, 3] (* Michael De Vlieger, Jan 01 2019 *)
PROG
(PARI) a(n) = {my(p=2, k=1); while(!(prime(k+n-1) < p+nextprime(p+1)), p = nextprime(p+1); k++); prime(k+n-1); } \\ Michel Marcus, Dec 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Dec 23 2018
STATUS
approved