OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
nxt[n_]:=Module[{sp=NextPrime[n]}, While[!Divisible[n+sp, 7], sp = NextPrime[ sp]]; sp]; NestList[nxt, 2, 50] (* Harvey P. Dale, Sep 26 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 28 2010
STATUS
approved