A107425 Numbers k such that (k + prime(k)) and (k+1 + prime(k+1)) are divisible by 7.

11, 58, 170, 184, 185, 208, 347, 354, 506, 523, 541, 561, 652, 655, 702, 703, 709, 710, 711, 730, 813, 814, 876, 925, 940, 947, 1012, 1062, 1157, 1164, 1173, 1174, 1213, 1269, 1326, 1375, 1412, 1429, 1430, 1486, 1534, 1537, 1544, 1545, 1590, 1657, 1682

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..14403 (all terms up to 50000)

Mathematica

Select[Range[5000], Mod[Prime[ # ]+#, 7]+Mod[Prime[ #+1]+#+1, 7]==0&]
Select[Range[5000], And@@Divisible[{#+Prime[#], #+1+Prime[#+1]}, 7]&] (* Harvey P. Dale, Aug 09 2013 *)

Crossrefs

Sequence in context: A014470 A285448 A048366 * A211921 A211795 A256226

Adjacent sequences: A107422 A107423 A107424 * A107426 A107427 A107428

Keyword

easy,nonn

Author

Zak Seidov, Jun 10 2005

Status

approved