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

2, 5, 23, 47, 79, 89, 107, 131, 149, 173, 191, 229, 233, 257, 317, 383, 401, 439, 443, 467, 499, 509, 541, 593, 653, 677, 709, 719, 751, 761, 821, 859, 863, 887, 919, 929, 947, 971, 1031, 1069, 1087, 1097, 1129, 1153, 1171, 1181, 1213, 1223, 1283, 1307

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

Cf. A175451.

Sequence in context: A293213 A215278 A126975 * A233443 A156314 A308055

Adjacent sequences: A175441 A175442 A175443 * A175445 A175446 A175447

Keyword

nonn

Author

Zak Seidov, May 28 2010

Status

approved