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,1

Links

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

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

Crossrefs

Cf. A175451.

Sequence in context: A174050 A122487 A109181 * A067522 A128852 A191765

Adjacent sequences: A175445 A175446 A175447 * A175449 A175450 A175451

Keyword

nonn

Author

Zak Seidov, May 28 2010

Status

approved