OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..4320
EXAMPLE
a(3) = 31 = A343531(4) and is prime, so it is in the sequence.
MAPLE
P:= [seq(ithprime(i), i=1..1001)]:
G:= P[2..-1]-P[1..-2]:
A:= [seq(add(P[i]*G[n+1-i], i=1..n), n=1..1000)]:
select(isprime, A);
MATHEMATICA
Select[Table[Sum[(Prime[i+1]-Prime[i])Prime[n+1-i], {i, n}], {n, 300}], PrimeQ] (* Harvey P. Dale, Feb 13 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Apr 18 2021
STATUS
approved