A139530 Primes of the form 24*k + 13.
13, 37, 61, 109, 157, 181, 229, 277, 349, 373, 397, 421, 541, 613, 661, 709, 733, 757, 829, 853, 877, 997, 1021, 1069, 1093, 1117, 1213, 1237, 1381, 1429, 1453, 1549, 1597, 1621, 1669, 1693, 1741, 1789, 1861, 1933, 2029, 2053, 2221, 2269, 2293, 2341, 2389
Offset: 1
Keywords
Links
- Robert Price, Table of n, a(n) for n = 1..10000
- N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
Crossrefs
Cf. A139827.
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[24 n + 13], AppendTo[a, 24 n + 13]], {n, 0, 200}]; a Select[24Range[0,150]+13,PrimeQ] (* Harvey P. Dale, Mar 11 2011 *)
Comments