A175445 a(n)>a(n-1), a(n) = smallest prime such that a(n)+a(n-1) is multiple of m, a(1)=2, m=9.

2, 7, 11, 43, 47, 61, 83, 97, 101, 151, 173, 223, 227, 241, 263, 277, 281, 313, 317, 331, 353, 367, 389, 421, 443, 457, 461, 547, 569, 601, 641, 673, 677, 691, 821, 853, 857, 907, 911, 997, 1019, 1033, 1091, 1123, 1163, 1213, 1217, 1231, 1289, 1303, 1307

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

Cf. A175451.

Sequence in context: A297348 A023250 A106013 * A352762 A073623 A101592

Adjacent sequences: A175442 A175443 A175444 * A175446 A175447 A175448

Keyword

nonn

Author

Zak Seidov, May 28 2010

Status

approved