login
Primes in A343812.
2

%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