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