OFFSET
1,1
COMMENTS
Conjecture: All terms belong to {1, 2, 3}. See third comment in A258036.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= <seq(ithprime(i), i=1..250)>:
S:= NULL: count:= 0:
for i from 2 while count < 101 do
P:= P[2..-1] - P[1..-2];
if P[1] < 0 then S:= S, i; count:= count+1; fi;
od:
S:= [S]:
S[2..-1]-S[1..-2]; # Robert Israel, Dec 21 2022
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