OFFSET
1,3
COMMENTS
Conjecture: All terms belong to {1, 2, 3}. See third comment in A258037.
MATHEMATICA
nn = 210; p = Prime@ Range@ nn; t = Table[ Differences[p, n][[1]], {n, 0, nn - 1}]; s = Select[ Range@ nn, t[[#]] > 0 &]; d = Differences@ s
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Clark Kimberling and Robert G. Wilson v, Oct 31 2022
STATUS
approved