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

2, 11, 41, 89, 197, 271, 353, 401, 431, 479, 509, 557, 587, 661, 691, 739, 743, 947, 977, 1051, 1237, 1259, 1289, 1493, 1523, 1571, 1601, 1753, 1783, 1831, 1861, 1987, 2017, 2039, 2069, 2143, 2251, 2273, 2381, 2663, 2693, 2741, 2797, 2819, 2927, 3001, 3083

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

sp[n_]:=Module[{p=NextPrime[n]}, While[!Divisible[p+n, 13], p= NextPrime[ p]]; p]; NestList[sp, 2, 50] (* Harvey P. Dale, Sep 24 2016 *)

Crossrefs

Cf. A175451.

Sequence in context: A168367 A247101 A080093 * A078746 A066593 A173580

Adjacent sequences: A175444 A175445 A175446 * A175448 A175449 A175450

Keyword

nonn

Author

Zak Seidov, May 28 2010

Status

approved