A175450 a(n)>a(n-1), a(n) = smallest prime greater than a(n-1) such that a(n)+a(n-1) is multiple of m, a(1)=2, m=19.

2, 17, 59, 131, 173, 283, 401, 587, 743, 853, 857, 929, 971, 1423, 1427, 1499, 1579, 1613, 1693, 1879, 1997, 2069, 2111, 2221, 2339, 2411, 2719, 2753, 2833, 3019, 3023, 3209, 3251, 3323, 3517, 3779, 3821, 3931, 4049, 4159, 4201, 4273, 4391, 4463, 4657

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

Cf. A175451.

Sequence in context: A367032 A125200 A368390 * A071402 A228641 A226417

Adjacent sequences: A175447 A175448 A175449 * A175451 A175452 A175453

Keyword

nonn

Author

Zak Seidov, May 28 2010

Extensions

Definition corrected by Harvey P. Dale, Mar 12 2014

Status

approved