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.

A139527 Numbers n such that numbers 24n+5 are primes.

Original entry on oeis.org

0, 1, 2, 4, 6, 7, 8, 11, 12, 13, 16, 19, 21, 23, 27, 28, 29, 32, 33, 34, 39, 42, 44, 46, 49, 51, 53, 54, 57, 62, 67, 68, 71, 72, 78, 79, 81, 82, 83, 86, 89, 92, 93, 96, 97, 98, 99, 103, 106, 109, 112, 114, 116, 118, 119, 121, 123, 134, 141, 142, 144, 147, 148, 149, 153, 154
Offset: 1

Views

Author

Artur Jasinski, Apr 25 2008

Keywords

Comments

Numbers n such that:
24n+1 is prime see A111174, primes 24n+1 see A107008
24n+5 is prime see A139527, primes 24n+5 see A107003
24n+7 is prime see A139483, primes 24n+7 see A107006
24n+11 is prime A139528, primes 24n+11 see A107007
24n+13 is prime see A139529, primes 24n+13 see A139530
24n+17 is prime see A139531, primes 24n+17 see A107181
24n+19 is prime see A139532, primes 24n+19 see A141373
24n+23 is prime see A131210, primes 24n+23 see A134517

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[24 n + 5], AppendTo[a, n]], {n, 0, 200}]; a
    Select[Table[(Prime[n]-5)/24,{n,800}],IntegerQ] (* Harvey P. Dale, Feb 25 2016 *)

A155945 Numbers n such that 24*n + 13 is not prime.

Original entry on oeis.org

3, 5, 8, 10, 12, 13, 18, 19, 20, 21, 23, 24, 26, 28, 32, 33, 37, 38, 39, 40, 43, 47, 48, 49, 52, 53, 54, 55, 56, 58, 61, 62, 63, 65, 68, 71, 73, 75, 76, 78, 79, 81, 82, 83, 86, 87, 88, 89, 90, 91, 93, 96, 98, 100
Offset: 1

Views

Author

Vincenzo Librandi, Jan 31 2009

Keywords

Examples

			Distribution of the terms in the following triangular array:
*;
*,*;
*,*,*;
*,*,*,*;
*,*,*,*,*;
*,*,*,*,*,*;
*,*,*,*,*,*,*;
*,3,*,*,*,*,*,*;
*,*,5,*,*,*,*,*,*;
*,*,*,*,*,*,*,*,*,*;
*,*,*,*,10,*,*,*,*,*,*;
*,*,*,*,*,13,*,*,*,*,*,*; etc.
where * marks the non-integer values of (2*h*k + k + h - 6)/12 with h >= k >= 1. - _Vincenzo Librandi_, Jan 15 2013
		

Crossrefs

Programs

  • Magma
    [n: n in [0..100] |not IsPrime(24*n + 13)]; // Vincenzo Librandi, Oct 15 2012
  • Mathematica
    Select[Range[0, 100], !PrimeQ[24 # + 13] &] (* Vincenzo Librandi, Oct 15 2012 *)
Showing 1-2 of 2 results.