A087524 a(0) = 2, a(n)=smallest prime > a(n-1) such that a(n) - a(n-1) == 0 mod n!.

2, 3, 5, 11, 59, 179, 1619, 6659, 87299, 1175939, 12062339, 131812739, 610814339, 13064855939, 536134603139, 20151250123139, 41074040011139, 2886573464779139, 79715057933515139, 444650359160011139

Offset

0,1

Comments

a(4) onwards a(n) == 9 (mod 10)

Links

Table of n, a(n) for n=0..19.

Example

a(4) = 59 and a(4) - a(3) = 59 - 11 = 48 = 2*4!.

Mathematica

nxt[{n_, a_}]:=Module[{p=NextPrime[a]}, While[Mod[p-a, (n+1)!]!=0, p=NextPrime[p]]; {n+1, p}]; NestList[nxt, {0, 2}, 11][[;; , 2]] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Mar 03 2024 *)

Crossrefs

Sequence in context: A083685 A243755 A242334 * A088053 A050444 A117701

Adjacent sequences: A087521 A087522 A087523 * A087525 A087526 A087527

Keyword

nonn

Author

Amarnath Murthy, Sep 11 2003

Extensions

More terms from Ray Chandler, Sep 14 2003

Status

approved