A185936 First of a run of 3 or more consecutive primes which all equal 1 (mod 3).

151, 199, 367, 523, 601, 727, 991, 1063, 1117, 1231, 1453, 1531, 1741, 1747, 1753, 1759, 2161, 2281, 2671, 3049, 3061, 3169, 3301, 3307, 3499, 3631, 3727, 4093, 4159, 4423, 4549, 4591, 4597, 4651, 4987, 5101, 5107, 5197, 5419, 5557, 5743, 5821, 6067, 6361, 6367, 6397, 6607, 6661, 7351, 7369, 7393, 7951, 8179, 8311

Offset: 1

Author

M. F. Hasler, Feb 06 2011

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

A subsequence of A185934.

Programs

Mathematica

Select[Partition[Prime[Range[1500]], 3, 1], Mod[#, 3] == {1, 1, 1} &][[All, 1]] (* Paolo Xausa, Mar 07 2025 *)

PARI

s=Mod([1,1,1],3); o=vector(3); i=0; forprime( p=1,1e4, o[i++%3+1]=p; o-s || print1( o[(i+1)%3+1]","))