OFFSET
1,1
MATHEMATICA
nn = 80; p = Prime@ Range@ nn; t = Table[ Differences[p, n][[1]], {n, 0, nn - 1}]; lid = Table[ Length@ IntegerDigits[ t[[n]], 2], {n, nn}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Clark Kimberling and Robert G. Wilson v, Oct 31 2022
STATUS
approved