A217659 Larger of two consecutive primes which both equal 1 (mod 3).

37, 67, 79, 157, 163, 211, 223, 277, 337, 373, 379, 439, 541, 547, 577, 607, 613, 631, 673, 733, 739, 757, 997, 1009, 1039, 1069, 1087, 1123, 1129, 1213, 1237, 1249, 1297, 1327, 1399, 1459, 1471, 1543, 1549, 1627, 1663, 1693, 1747, 1753, 1759, 1777, 1783

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Formula

a(n) = A151800(A185934(n)) = 6*A219244(n) + A185934(n).

Mathematica

With[{p = Prime[Range[350]]}, ind = Position[Mod[p, 3], 1] // Flatten; p[[1 + ind[[Position[Differences[ind], 1] // Flatten]]]]] (* Amiram Eldar, Apr 12 2025 *)

Prog

(Haskell)
a217659 = a151800 . fromInteger . a185934

Crossrefs

Cf. A002476, A151800, A185934, A219244.

Sequence in context: A319673 A121764 A131499 * A054805 A141163 A063461

Adjacent sequences: A217656 A217657 A217658 * A217660 A217661 A217662

Keyword

nonn

Author

Reinhard Zumkeller, Nov 16 2012

Status

approved