OFFSET
1,2
MATHEMATICA
fQ[n_] := PrimeQ[ Differences[ Prime@ Range@ n, n - 1]][[1]]; k = 1; lst = {}; While[k < 36001, If[fQ@ k, AppendTo[lst, k]; k++]; lst
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jan 08 2023
STATUS
approved