OFFSET
1,1
MATHEMATICA
z = 300; p[n_] := Prime[n];
a[n_] := p[2 n + 2] - p[2 n] - p[2 n + 1] + p[2 n - 1];
Prime[Select[Range[z], a[#] == 0 &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2025
STATUS
approved
