OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
nxt[n_]:=Module[{k=NextPrime[n]}, While[!Divisible[n+k, 19], k=NextPrime[ k]]; k]; NestList[nxt, 2, 50] (* Harvey P. Dale, Mar 12 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 28 2010
EXTENSIONS
Definition corrected by Harvey P. Dale, Mar 12 2014
STATUS
approved