A216970 Primes congruent to 1 mod 37.

149, 223, 593, 1259, 1481, 1777, 1999, 2221, 2591, 2887, 3109, 3257, 3331, 3701, 3923, 4219, 4441, 4663, 5107, 5477, 6143, 6217, 6661, 6883, 7253, 7549, 7919, 7993, 8363, 8807, 9029, 9103, 9473, 9547, 9769, 10139, 10657, 11027, 11471, 12211, 12433, 13099

Offset: 1

Author

Bruno Berselli, Sep 21 2012

Keywords

• nonn
• easy

Comments

Coincides for the first 38 terms with A059223 (primes p such that x^37 = 2 has no solution mod p), the first divergence is at the term 11471.

Links

• Bruno Berselli, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A059223, A100203, A142112-A142145.

Programs

Magma

[p: p in PrimesUpTo(14000) | IsOne(p mod 37)];

Mathematica

Select[Prime[Range[1700]], Mod[#, 37] == 1 &]
Select[Range[1, 14000, 37], PrimeQ]

PARI

select(p->p%37==1,primes(10^4)) /* Joerg Arndt, Sep 21 2012 */