OFFSET
1,1
EXAMPLE
n=1, p1=29:
29 + 31 + 37 + 41 + 43 + 47 + 53 + 59 + 61 = 401,
29 + 31 + 37 = 97, 41 + 43 + 47 = 131, 53 + 59 + 61 = 173, all primes.
MATHEMATICA
Select[Prime@Range@10000, And@@PrimeQ[Flatten@{Total[s=NextPrime[#, 0~Range~8]], Total/@Partition[s, 3]}]&] (* Giorgos Kalogeropoulos, Apr 26 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 26 2021
STATUS
approved