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

Links

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

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

Crossrefs

Cf. A175451.

Sequence in context: A091252 A031920 A302361 * A054207 A104095 A282725

Adjacent sequences: A175443 A175444 A175445 * A175447 A175448 A175449

Keyword

nonn

Author

Zak Seidov, May 28 2010

Status

approved