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

2, 31, 79, 97, 101, 163, 167, 229, 233, 251, 277, 317, 409, 449, 541, 647, 673, 691, 739, 757, 761, 823, 827, 911, 937, 977, 1069, 1087, 1091, 1109, 1201, 1307, 1399, 1439, 1487, 1549, 1553, 1571, 1597, 1637, 1663, 1747, 1861, 1879, 1949, 2011, 2081, 2099

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

sp11[a_]:=Module[{k=NextPrime[a]},While[Mod[a+k,11]!=0,k=NextPrime[k]];k]; NestList[ sp11,2,50] (* Harvey P. Dale, Aug 31 2024 *)