cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

A045469 Primes congruent to {1, 4} mod 7.

Original entry on oeis.org

11, 29, 43, 53, 67, 71, 109, 113, 127, 137, 151, 179, 193, 197, 211, 239, 263, 277, 281, 337, 347, 379, 389, 421, 431, 449, 463, 487, 491, 547, 557, 571, 599, 613, 617, 631, 641, 659, 673, 683, 701, 739, 743
Offset: 1

Views

Author

Keywords

Comments

The same as A045461 except for the initial 7 (the only prime congruent to 0 mod 7). - Alonso del Arte, Feb 18 2012

Crossrefs

Programs

  • Magma
    [ p: p in PrimesUpTo(1000) | p mod 7 in {1, 4} ]; // Vincenzo Librandi, Aug 06 2012
  • Mathematica
    Select[Prime[Range[120]], MemberQ[{1, 4}, Mod[#, 7]] &] (* Alonso del Arte, based on Orlovsky's program for A042992, Feb 18 2012 *)

A045461 Primes congruent to {0, 1, 4} mod 7.

Original entry on oeis.org

7, 11, 29, 43, 53, 67, 71, 109, 113, 127, 137, 151, 179, 193, 197, 211, 239, 263, 277, 281, 337, 347, 379, 389, 421, 431, 449, 463, 487, 491, 547, 557, 571, 599, 613, 617, 631, 641, 659, 673, 683, 701, 739, 743
Offset: 1

Views

Author

Keywords

Comments

The same as A045469 but without the initial 7 (the only prime congruent to 0 mod 7).

Crossrefs

Cf. A045312 (complement).

Programs

  • Magma
    [ p: p in PrimesUpTo(1000) | p mod 7 in {0, 1, 4} ]; // Vincenzo Librandi, Aug 13 2012
  • Mathematica
    Select[Prime[Range[120]], MemberQ[{0, 1, 4}, Mod[#, 7]] &] (* From Alonso del Arte based on Orlovsky's program for A042992, Feb 18 2012 *)
  • PARI
    forprime(p=2,1e3,if((n->n<2||n==4)(p%7),print1(p", "))) \\ Charles R Greathouse IV, Feb 20 2012
    

Formula

a(n) ~ 3 n log n. [Charles R Greathouse IV, Feb 20 2012]

A215370 Primes congruent to {0, 2, 3, 5, 6} mod 11.

Original entry on oeis.org

2, 3, 5, 11, 13, 17, 47, 61, 71, 79, 83, 101, 113, 127, 137, 149, 157, 167, 179, 181, 193, 211, 223, 233, 269, 277, 281, 311, 313, 347, 379, 401, 409, 421, 431, 443, 457, 467, 479, 487, 509, 523, 541, 563, 577, 599, 607, 619, 641, 643, 673, 677, 709, 739
Offset: 1

Views

Author

Vincenzo Librandi, Aug 09 2012

Keywords

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(800) | p mod 11 in [0, 2, 3, 5, 6]];
  • Mathematica
    Select[Prime[Range[400]],MemberQ[{0,2,3,5,6},Mod[#,11]]&]

A215371 Primes congruent to {0, 2, 3, 5, 6} mod 13.

Original entry on oeis.org

2, 3, 5, 13, 19, 29, 31, 41, 67, 71, 83, 97, 107, 109, 149, 197, 211, 223, 227, 239, 263, 317, 331, 353, 367, 379, 383, 409, 419, 421, 431, 457, 461, 487, 499, 509, 523, 577, 587, 601, 613, 617, 643, 653, 691, 733, 743, 757, 769, 773, 809, 811, 821, 863
Offset: 1

Views

Author

Vincenzo Librandi, Aug 09 2012

Keywords

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(1000) | p mod 13 in [0, 2, 3, 5, 6]];
  • Mathematica
    Select[Prime[Range[400]],MemberQ[{0,2,3,5,6},Mod[#,13]]&]

A215372 Primes congruent to {0, 2, 3, 5, 6} mod 17.

Original entry on oeis.org

2, 3, 5, 17, 19, 23, 37, 53, 71, 73, 107, 139, 173, 193, 223, 227, 241, 257, 277, 311, 359, 379, 397, 431, 461, 479, 499, 547, 563, 601, 617, 631, 683, 719, 733, 751, 787, 821, 839, 853, 887, 907, 937, 941, 971, 991, 1009, 1039, 1091, 1093, 1193
Offset: 1

Views

Author

Vincenzo Librandi, Aug 09 2012

Keywords

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(1200) | p mod 17 in [0, 2, 3, 5, 6]];
  • Mathematica
    Select[Prime[Range[400]],MemberQ[{0,2,3,5,6},Mod[#,17]]&]

A215373 Primes congruent to {0, 2, 3, 5, 6} mod 19.

Original entry on oeis.org

2, 3, 5, 19, 41, 43, 59, 79, 97, 101, 139, 157, 173, 193, 211, 233, 269, 271, 307, 347, 367, 383, 401, 421, 439, 443, 461, 499, 557, 613, 709, 727, 743, 823, 839, 857, 877, 937, 953, 971, 991, 1009, 1013, 1031, 1051, 1069, 1123, 1181, 1237, 1259, 1279, 1297
Offset: 1

Views

Author

Vincenzo Librandi, Aug 09 2012

Keywords

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(1500) | p mod 19 in [0, 2, 3, 5, 6]];
  • Mathematica
    Select[Prime[Range[400]],MemberQ[{0,2,3,5,6},Mod[#,19]]&]
Showing 1-6 of 6 results.