A061239 Prime numbers == 4 (mod 9).

13, 31, 67, 103, 139, 157, 193, 211, 229, 283, 337, 373, 409, 463, 499, 571, 607, 643, 661, 733, 751, 769, 787, 823, 859, 877, 967, 1021, 1039, 1093, 1129, 1201, 1237, 1291, 1327, 1381, 1399, 1453, 1471, 1489, 1543, 1579, 1597, 1669, 1723, 1741, 1759

Offset

1,1

Comments

A010888(a(n)) = 4. - Reinhard Zumkeller, Feb 25 2005

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[ Range[ 2000 ], PrimeQ[ # ] && Mod[ #, 9 ] == 4 & ]
Select[Prime[Range[300]], Mod[#, 9]==4&] (* Harvey P. Dale, Aug 20 2015 *)

Prog

(Magma)[ p: p in PrimesUpTo(2000) | p mod 9 in {4} ]; // Vincenzo Librandi, Dec 25 2010
(PARI) select(n->n%9==4, primes(400)) \\ Charles R Greathouse IV, May 27 2014

Crossrefs

Cf. A061237..A061242.

Sequence in context: A242231 A330855 A268927 * A072023 A217614 A158723

Adjacent sequences: A061236 A061237 A061238 * A061240 A061241 A061242

Keyword

nonn,easy

Author

Amarnath Murthy, Apr 23 2001

Extensions

More terms from Robert G. Wilson v, May 10 2001

Status

approved