login
A061241
Prime numbers == 7 (mod 9).
11
7, 43, 61, 79, 97, 151, 223, 241, 277, 313, 331, 349, 367, 421, 439, 457, 547, 601, 619, 673, 691, 709, 727, 853, 907, 997, 1033, 1051, 1069, 1087, 1123, 1213, 1231, 1249, 1303, 1321, 1429, 1447, 1483, 1609, 1627, 1663, 1699, 1753, 1789, 1861, 1879, 1933
OFFSET
1,1
COMMENTS
A010888(a(n)) = 7. - Reinhard Zumkeller, Feb 25 2005
LINKS
MAPLE
select(isprime, [seq(9*i+7, i=0..10^5)]); # Robert Israel, Apr 20 2014
MATHEMATICA
Select[Range[2500], PrimeQ[#] && Mod[#, 9] == 7 &]
Select[Prime[Range[300]], Mod[#, 9] == 7 & ] (* Harvey P. Dale, Apr 30 2011 *)
PROG
(Magma) [p: p in PrimesUpTo(2000) | p mod 9 eq 7]; // Vincenzo Librandi, Dec 25 2010
(PARI) select(n->n%9==7, primes(400)) \\ Charles R Greathouse IV, May 27 2014
CROSSREFS
Sequence in context: A085704 A243459 A301628 * A062337 A176252 A118703
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Apr 23 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 10 2001
STATUS
approved