OFFSET
1,1
COMMENTS
Also, numbers 6184 and 95444 are such that the sum (prime(k)+ ... + prime(k+12)) is a prime.
LINKS
Robert Israel, Table of n, a(n) for n = 1..105
MAPLE
P:= select(isprime, [seq(i, i=3..10^7, 2)]):
M:= Matrix(11, nops(P));
nP:= nops(P);
M[1, ..]:= Vector[row](P):
for i from 2 to 11 do
M[i, 1..nP+1-i]:= M[i-1, 1..nP+1-i] + M[1, i..nP]
od:
S:= select(t -> isprime(M[3, t]) and isprime(M[5, t]) and isprime(M[7, t])
and isprime(M[9, t]) and isprime(M[11, t]), [$1..nP-11]):
map(`+`, S, 1); # Robert Israel, Jun 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 05 2017
EXTENSIONS
More terms from Robert Israel, Jun 05 2017
STATUS
approved