A087523 a(0) = 2, a(n) = smallest prime == n mod a(n-1), a(n)>a(n-1).

2, 3, 5, 13, 17, 73, 79, 797, 2399, 38393, 345547, 2073293, 39392579, 472710961, 4254398663, 93596770601, 2152725723839, 8610902895373, 8610902895391, 86109028953929, 602763202677523, 12055264053550481, 204939488910358199

Offset

0,1

Links

Harvey P. Dale, Table of n, a(n) for n = 0..100

Example

a(3) = 13 == 3 (mod 5), a(4) = 17 == 4 (mod 13), 73 == 5 (mod 17).

Mathematica

nw[{n_, a_}]:=NestWhile[#+a&, a+n+1, !PrimeQ[#]&]; nxt[{n_, a_}]:={n+1, nw[{n, a}]}; Transpose[NestList[nxt, {0, 2}, 25]][[2]] (* Harvey P. Dale, Jun 10 2016 *)

Crossrefs

Sequence in context: A235624 A355518 A108562 * A073919 A162573 A349785

Adjacent sequences: A087520 A087521 A087522 * A087524 A087525 A087526

Keyword

nonn

Author

Amarnath Murthy, Sep 11 2003

Extensions

More terms from Ray Chandler, Sep 14 2003

Status

approved