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

2, 13, 17, 43, 47, 73, 107, 163, 167, 193, 197, 223, 227, 283, 317, 373, 467, 523, 557, 613, 617, 643, 647, 673, 677, 733, 797, 823, 827, 853, 857, 883, 887, 1033, 1097, 1123, 1187, 1213, 1217, 1303, 1307, 1423, 1427, 1453, 1487, 1543, 1607, 1663, 1667, 1693

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

sp15[n_]:=Module[{p=NextPrime[n]},While[!Divisible[n+p,15],p = NextPrime[ p]]; p]; NestList[sp15,2,50] (* Harvey P. Dale, Jan 22 2016 *)