OFFSET
1,1
COMMENTS
MATHEMATICA
seq[max_] := With[{p = FoldList[Times, Prime[Range[max]]]}, Select[(Most[p] + Rest[p])/2 - 1, PrimeQ]]; seq[40] (* Amiram Eldar, Feb 09 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Feb 09 2026
STATUS
approved
