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
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
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 */
Comments