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

Author

Reinhard Zumkeller, Nov 16 2012

Keywords

• nonn

Links

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

Crossrefs

Cf. A002476, A151800, A185934, A219244.

Programs

Haskell

a217659 = a151800 . fromInteger . a185934

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

Formula

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