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-2 of 2 results.

A154625 Primes p such that 71*p + 34 is also prime.

Original entry on oeis.org

5, 23, 47, 53, 83, 89, 149, 179, 317, 347, 353, 359, 389, 467, 503, 557, 569, 647, 683, 773, 929, 947, 977, 983, 1019, 1103, 1193, 1217, 1229, 1283, 1307, 1319, 1439, 1733, 1847, 1889, 1907, 2069, 2153, 2243, 2309, 2357, 2393, 2399, 2417, 2657, 2687, 2693
Offset: 1

Views

Author

Vincenzo Librandi, Jan 17 2009

Keywords

Crossrefs

Cf. A154624.

Programs

  • Magma
    [p: p in PrimesUpTo(2800)| IsPrime(71*p + 34)]; // Vincenzo Librandi, Oct 30 2012
  • Maple
    a := proc (n) if isprime(n) = true and isprime(71*n+34) = true then n else end if end proc: seq(a(n), n = 1 .. 3000); # Emeric Deutsch, Jan 26 2009
  • Mathematica
    Select[Prime[Range[500]],PrimeQ[71#+34]&] (* Harvey P. Dale, Jun 04 2011 *)

Extensions

Extended by Emeric Deutsch, Jan 26 2009

A274202 Primes congruent to 31 mod 65.

Original entry on oeis.org

31, 421, 811, 941, 1201, 1721, 2111, 2371, 3541, 3671, 3931, 4451, 5101, 5231, 5881, 6011, 6271, 6661, 6791, 8221, 8741, 9001, 9391, 9521, 9781, 10301, 10691, 11471, 11731, 12251, 12511, 12641, 13291, 13421, 13681, 14071, 14461, 14591, 14851, 15241, 15761
Offset: 1

Views

Author

Vincenzo Librandi, Jun 13 2016

Keywords

Comments

Subsequence of A030430 and A102732.

Crossrefs

Cf. similar sequences of the type primes congruent to k mod 2*k+3: A045392 (k=2), A102732 (k=5), A138629 (k=7), A141873 (k=8), A141914 (k=10), A141935 (k=11), A141989 (k=13), A142018 (k=14), A142086 (k=16), A142126 (k=17), A142216 (k=19), A142269 (k=20), A142373 (k=22), A142433 (k=23), A142555 (k=25), A142619 (k=26), A142755 (k=28), A142827 (k=29), this sequence (k=31), A154621 (k=32), A154624 (k=34), A154628 (k=35).

Programs

  • Magma
    [p: p in PrimesUpTo(20000) | p mod 65 eq 31];
  • Mathematica
    Select[Prime[Range[2000]], MemberQ[{31}, Mod[#, 65]] &]
    Select[Range[31,16000,65],PrimeQ] (* Harvey P. Dale, May 06 2018 *)
Showing 1-2 of 2 results.