|
%I #11 Feb 13 2023 16:19:35
%S 2,7,31,83,307,503,919,1483,5059,9439,10139,13159,15647,17431,21491,
%T 23671,30911,33599,47459,49199,52627,58199,62327,79379,81551,90971,
%U 98443,109171,114643,123439,162007,168863,172331,175811,278767,298303,303011,322951,376399,387631,393007,571531,592531
%N Primes in A343531.
%H Robert Israel, <a href="/A343532/b343532.txt">Table of n, a(n) for n = 1..4320</a>
%e a(3) = 31 = A343531(4) and is prime, so it is in the sequence.
%p P:= [seq(ithprime(i),i=1..1001)]:
%p G:= P[2..-1]-P[1..-2]:
%p A:= [seq(add(P[i]*G[n+1-i],i=1..n),n=1..1000)]:
%p select(isprime,A);
%t Select[Table[Sum[(Prime[i+1]-Prime[i])Prime[n+1-i],{i,n}],{n,300}],PrimeQ] (* _Harvey P. Dale_, Feb 13 2023 *)
%Y Cf. A343531.
%K nonn
%O 1,1
%A _J. M. Bergot_ and _Robert Israel_, Apr 18 2021
|
