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

Author

Zak Seidov, May 28 2010

Keywords

• nonn

Links

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

Crossrefs

Cf. A175451.

Programs

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 *)