OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
P:= [seq(ithprime(i), i=1..10000)]:
f:= n -> convert(P[P[n]..P[n+1]], `+`):
select(isprime, map(f, [$1..numtheory:-pi(10000)-1]));
MATHEMATICA
Select[Array[Sum[Prime[n], {n, Prime[#], Prime[#+1]}]&, 200], PrimeQ] (* Giorgos Kalogeropoulos, Jun 08 2021 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
J. M. Bergot and Robert Israel, Jun 07 2021
STATUS
approved