%I #7 Apr 30 2021 23:10:21
%S 3,41,109,419,353,421,599,1511,2551,2659,3089,4049,5233,5483,5399,
%T 7001,8059,10973,13967,13553,16561,17827,27437,27847,35251,35597,
%U 35363,46187,46919,49037,53939,57559,65309,72101,80051,79687,91703,101341,100847,99989,121357,127423,134039,185749,207073
%N Primes in A343812.
%C Terms are in the order in which they occur in A343812.
%H Robert Israel, <a href="/A343814/b343814.txt">Table of n, a(n) for n = 1..1608</a>
%e a(3) = 109 because A343812(13) = 109 which is prime.
%p P:= [seq(ithprime(i),i=1..1000)]:
%p S:= ListTools:-PartialSums(P):
%p A343812:= [seq(add(S[n] mod P[k],k=1..n),n=1..1000)]:
%p select(isprime, A343812);
%Y Cf. A343812.
%K nonn
%O 1,1
%A _J. M. Bergot_ and _Robert Israel_, Apr 30 2021