|
%I
%S 11,19,41,71,79,101,109,131,139,191,199,229,251,281,311,349,379,401,
%T 409,431,439,461,491,499,521,619,641,701,709,739,761,769,821,829,859,
%U 881,911,919,941,971,1009,1031,1039,1061,1069,1091,1129,1151,1181,1249,1279
%N Primes congruent to 11 or 19 mod 30.
%H Vincenzo Librandi, <a href="/A140506/b140506.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[250]],Mod[#,30]==19||Mod[#,30]==11&] [From Harvey P. Dale, Dec. 28, 2010]
%t Select[Prime[Range[210]],MemberQ[{11,19},Mod[#,30]]&] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (MAGMA) [p: p in PrimesUpTo(3000)|p mod 30 in {11,19}]; // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_ Jul 28 2008
%E Corrected by _Charles R Greathouse IV_, Mar 25 2010
|
