OFFSET
1,2
MATHEMATICA
nxt[{n_, a_}]:={n+1, 1+Abs[Prime[n+1]-a]}; NestList[nxt, {1, 1}, 70][[All, 2]] (* Harvey P. Dale, Jan 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 24 2003
STATUS
approved