login
A087524
a(0) = 2, a(n)=smallest prime > a(n-1) such that a(n) - a(n-1) == 0 mod n!.
0
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)
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 11 2003
EXTENSIONS
More terms from Ray Chandler, Sep 14 2003
STATUS
approved