login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A120330 Primes not congruent to +/- 1, 3, or 4 (mod 13). 0

%I

%S 2,5,7,11,13,19,31,37,41,47,59,67,71,73,83,89,97,109,137,149,151,163,

%T 167,193,197,223,227,229,239,241,271,281,293,307,317,331,349,353,359,

%U 379,383,397,401,409,421,431,449,457,461,463,479,487,499,509,541,557

%N Primes not congruent to +/- 1, 3, or 4 (mod 13).

%F 37 is prime and congruent to -2 (mod 13), so 37 is on the list

%t For[a = 1, a < 1001, a++, p = Prime[a]; t = Mod[p, 13]; If[Or[t == 1, t == 3, t == 4, t == 9, t == 10, t == 12] == False, Print[p]]]

%t Select[Prime[Range[110]],!MemberQ[{1,3,4,9,10,12},Mod[#,13]]&] (* _Harvey P. Dale_, May 12 2019 *)

%K easy,nonn

%O 1,1

%A _Neil Fernandez_, Jun 22 2006

%E Corrected by _N. J. A. Sloane_, May 12 2019 at the suggestion of _Harvey P. Dale_.

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 21 23:55 EDT 2019. Contains 327286 sequences. (Running on oeis4.)