OFFSET
1,1
COMMENTS
The next term has 500 digits and is too large to be displayed here.
PROG
(Magma) z:=55; S:=[2, 3]; p:=5; for n in [3..z] do while not IsPrime(Abs(S[n-2]+S[n-1]-p)) do p:=NextPrime(p); end while; Append(~S, p); p:=NextPrime(p); end for; T:=[ n eq 1 select S[1] else Self(n-1)*S[n]: n in [1..#S] ]; [ p: n in [1..#T] | IsPrime(p) where p is T[n]+1 ]; // Klaus Brockhaus, Dec 19 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Nov 16 2010
STATUS
approved