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

A095278 Numbers k such that 4k + 3 is prime.

Original entry on oeis.org

0, 1, 2, 4, 5, 7, 10, 11, 14, 16, 17, 19, 20, 25, 26, 31, 32, 34, 37, 40, 41, 44, 47, 49, 52, 55, 56, 59, 62, 65, 67, 70, 76, 77, 82, 86, 89, 91, 94, 95, 104, 107, 109, 110, 115, 116, 119, 121, 122, 124, 125, 130, 136, 140, 142, 146, 149, 151, 154, 157, 160, 161, 164
Offset: 1

Views

Author

Antti Karttunen, Jun 01 2004

Keywords

Links

Crossrefs

Cf. A002145. Complement of A095277. Union of A095272 and A095273. Cf. also A005098.

Programs

Formula

a(n) = (A002145(n) - 3)/4.

A045751 Numbers k such that 4*k + 1 is not prime.

Original entry on oeis.org

0, 2, 5, 6, 8, 11, 12, 14, 16, 17, 19, 20, 21, 23, 26, 29, 30, 31, 32, 33, 35, 36, 38, 40, 41, 42, 44, 46, 47, 50, 51, 52, 53, 54, 55, 56, 59, 61, 62, 63, 65, 66, 68, 71, 72, 74, 75, 76, 77, 80, 81, 82, 83, 85, 86, 89, 90, 91, 92, 94, 95, 96, 98, 101, 103, 104, 106, 107, 109
Offset: 1

Views

Author

Felice Russo

Keywords

Comments

Terms (except 0) can be written as 4xy +- (x+y) for x > 0, y > 0. - Ron R Spencer, Jul 28 2016
Numbers k such that (4*k)!/(4*k + 1) is an integer. - Peter Bala, Jan 25 2017

Examples

			Distribution of the positive terms in the following triangular array:
   2;
   *,   6;
   5,   *,  12;
   *,  11,   *,  20;
   8,   *,  19,   *,  30;
   *,  16,   *,  29,   *,  42;
  11,   *,  26,   *,  41,   *,  56;
   *,  21,   *,  38,   *,  55,   *,  72;
  14,   *,  33,   *,  52,   *,  71,   *,  90;
   *,  26,   *,  47,   *,  68,   *,  89,   *, 110;
  17,   *,  40,   *,  63,   *,  86,   *, 109,   *, 132;
etc., where * marks the noninteger values of (2*h*k + k + h)/2 with h >= k >= 1. - _Vincenzo Librandi_, Jan 14 2013

Links

Crossrefs

Cf. A014076, A153170, A095277, A153088, A153329, A153343.

Programs

  • Magma
    [n: n in [0..220]| not IsPrime(4*n+1)]; // Vincenzo Librandi, Jan 28 2011
  • Maple
    for n from 0 to 100 do
if irem(factorial(4*n), 4*n+1) = 0 then print(n); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[0, 200], ! PrimeQ[4 # + 1] &]
  • PARI
    is(n)=!isprime(4*n+1) \\ Charles R Greathouse IV, Jul 29 2016

Extensions

More terms from Erich Friedman

A153088 Numbers k such that 5*k - 1 is not prime.

Original entry on oeis.org

1, 2, 3, 5, 7, 8, 9, 10, 11, 13, 14, 15, 17, 19, 20, 21, 23, 24, 25, 26, 27, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 77, 79, 80, 81, 83, 85, 86, 87, 89, 91, 92, 93
Offset: 1

Views

Author

Vincenzo Librandi, Jan 03 2009

Keywords

Examples

			Distribution of the even terms in the following triangular array:
   2;
   *,   *;
   *,   *,  10;
   *,   *,   *,   *;
   *,   *,   *,  20,   *;
   8,   *,   *,   *,   *,  34;
   *,   *,   *,   *,   *,   *,   *;
   *,   *,  24,   *,   *,   *,   *,  58;
   *,   *,   *,   *,  42,   *,   *,   *,   *;
   *,   *,   *,  38,   *,   *,   *,   *,  80,   *;
  14,   *,   *,   *,   *,  60,   *,   *,   *,   *, 106;
etc., where * marks the noninteger values of (4*h*k + 2*k + 2*h + 2)/5 with h >= k >= 1. - _Vincenzo Librandi_, Jan 15 2013

Links

Crossrefs

Cf. A153355, A014076, A153170, A045751, A095277, A153329, A153343.

Programs

  • Magma
    [n: n in [1..100] | not IsPrime(5*n-1)]; // Vincenzo Librandi, Oct 11 2012
  • Maple
    # produces the sequence apart from the initial terms 1 and 2
for n from 0 to 100 do
  if irem(factorial(5*n), 5*n+4) = 0 then print(n+1); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[1, 200], !PrimeQ[5 # - 1] &] (* Vincenzo Librandi, Oct 11 2012 *)

Formula

a(n) = A153343(n) + 1. - Peter Bala, Jan 25 2017

Extensions

First 29 replaced with 20, 4 replaced with 44, extended by R. J. Mathar, Jan 05 2009
Erroneous comment deleted by N. J. A. Sloane, Jun 23 2010

A153170 Numbers k such that 3*k + 2 is not prime.

Original entry on oeis.org

2, 4, 6, 8, 10, 11, 12, 14, 16, 18, 20, 21, 22, 24, 25, 26, 28, 30, 31, 32, 34, 36, 38, 39, 40, 41, 42, 44, 46, 47, 48, 50, 51, 52, 53, 54, 56, 58, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 78, 80, 81, 82, 84, 86, 88, 90, 91, 92, 94, 95, 96, 98, 99, 100, 101, 102
Offset: 1

Views

Author

Vincenzo Librandi, Dec 20 2008

Keywords

Comments

Contains the positive even numbers (A005843) and the odd numbers of the form 2*A059324(.) + 1. - R. J. Mathar, Nov 27 2010
Numbers k such that (3*k)!/(3*k + 2) is an integer. - Peter Bala, Jan 25 2017

Examples

			Distribution of the odd terms in the following triangular array:
  *;
  *,   *;
  *,  11,   *;
  *,   *,   *,   *;
  *,   *,  25,   *,   *;
  *,  21,   *,   *,  47,   *;
  *,   *,   *,   *,   *,   *,   *;
  *,   *,  39,   *,   *,  73,   *,   *;
  *,  31,   *,   *,  69,   *,   *, 107,   *;
  *,   *,   *,   *,   *,   *,   *,   *,   *,   *;
  *,   *,  53,   *,   *,  99,   *,   *, 145,   *,   *;
  *,  41,   *,   *,  91,   *,   *, 141,   *,   *, 191,   *;
etc., where * marks the noninteger values of (4*h*k + 2*k + 2*h - 1)/3 with h >= k >= 1. - _Vincenzo Librandi_, Jan 15 2013

Links

Crossrefs

Cf. A024893, A014076, A045751, A095277, A153088, A153329, A153343.

Programs

  • Magma
    [n: n in [1..110] | not IsPrime(3*n + 2)]; // Vincenzo Librandi, Oct 11 2012
  • Maple
    for n from 0 to 100 do
if irem(factorial(3*n), 3*n+2) = 0 then print(n); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[1, 200], !PrimeQ[3*# + 2] &] (* Vincenzo Librandi, Oct 11 2012 *)
  • PARI
    for(n=1,200,if(!isprime(3*n+2), print1(n,", "))) \\  Joerg Arndt, Nov 27 2010

Extensions

Edited by N. J. A. Sloane, Jun 23 2010

A153329 Numbers k such that 5*k + 1 is not prime.

Original entry on oeis.org

0, 1, 3, 4, 5, 7, 9, 10, 11, 13, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 27, 28, 29, 31, 32, 33, 34, 35, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 60, 61, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 85, 87
Offset: 1

Views

Author

Vincenzo Librandi, Dec 23 2008

Keywords

Comments

Numbers k such that (5*k)!/(5*k + 1) is an integer. - Peter Bala, Jan 25 2017

Examples

			Distribution of the even terms in the following triangular array:
   *;
   *,  *;
   4,  *,  *;
   *,  *,  *, 16;
   *,  *,  *,  *, 24;
   *,  *, 18,  *,  *,  *;
   *,  *,  *,  *,  *,  *,  *;
  10,  *,  *,  *,  *, 44,  *,  *;
   *,  *,  *, 34,  *,  *,  *,  *, 72;
   *,  *,  *,  *, 46,  *,  *,  *,  *, 88;
   *,  *, 32,  *,  *,  *,  *, 78,  *,  *,  *;
etc., where * marks the noninteger values of (4*h*k + 2*k + 2*h)/5 with h >= k >= 1. - _Vincenzo Librandi_, Jan 17 2013

Links

Crossrefs

Cf. A024894, A014076, A153170, A045751, A095277, A153088, A153343.

Programs

  • Magma
    [n: n in [0..150] | not IsPrime(5*n + 1)]; // Vincenzo Librandi, Jan 12 2013
  • Maple
    for n from 0 to 100 do
if irem(factorial(5*n), 5*n+1) = 0 then print(n); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[0, 200], !PrimeQ[5*# + 1]&] (* Vincenzo Librandi, Jan 12 2013 *)

Extensions

Erroneous comment deleted by N. J. A. Sloane, Jun 23 2010
0 added by Arkadiusz Wesolowski, Aug 03 2011

A153343 Numbers k such that 5*k + 4 is not prime.

Original entry on oeis.org

0, 1, 2, 4, 6, 7, 8, 9, 10, 12, 13, 14, 16, 18, 19, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 43, 44, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 72, 73, 74, 76, 78, 79, 80, 82, 84, 85, 86, 88
Offset: 1

Views

Author

Vincenzo Librandi, Dec 24 2008

Keywords

Comments

Apart from a(0) = 0 and a(1) = 1 this sequence comprises those numbers k such that (5*k)!/(5*k + 4) is an integer. - Peter Bala, Jan 25 2017

Examples

			Distribution of the odd terms in the following triangular array:
   1;
   *,   *;
   *,   *,   9;
   *,   *,   *,   *;
   *,   *,   *,  19,   *;
   7,   *,   *,   *,   *,  33;
   *,   *,   *,   *,   *,   *,   *;
   *,   *,  23,   *,   *,   *,   *,  57;
   *,   *,   *,   *,  41,   *,   *,   *,   *;
   *,   *,   *,  37,   *,   *,   *,   *,  79,   *;
  13,   *,   *,   *,   *,  59,   *,   *,   *,   *,  105;
etc., where * marks the noninteger values of (4*h*k + 2*k + 2*h - 3)/5 with h >= k >= 1. - _Vincenzo Librandi_, Jan 17 2013

Links

Crossrefs

Cf. A024897, A014076, A153170, A045751, A095277, A153088, A153343.

Programs

  • Magma
    [n: n in [0..150] | not IsPrime(5*n + 4)]; // Vincenzo Librandi, Jan 12 2013
  • Maple
    # produces the sequence apart from the initial terms 0 and 1
for n from 0 to 100 do
if irem(factorial(5*n), 5*n+4) = 0 then print(n); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[0, 200], !PrimeQ[5*# + 4]&] (* Vincenzo Librandi, Jan 12 2013 *)

Extensions

Erroneous comment deleted by N. J. A. Sloane, Jun 23 2010
0 added by Arkadiusz Wesolowski, Aug 03 2011

A094896 If 4*n+1 is prime and 4*n+3 is not prime then a(n)=4*n+1, else a(n)=0.

Original entry on oeis.org

0, 0, 0, 13, 0, 0, 0, 0, 0, 37, 0, 0, 0, 53, 0, 61, 0, 0, 73, 0, 0, 0, 89, 0, 97, 0, 0, 109, 113, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 157, 0, 0, 0, 173, 0, 181, 0, 0, 193, 0, 0, 0, 0, 0, 0, 0, 0, 229, 233, 0, 241, 0, 0, 0, 257, 0, 0, 0, 0, 277, 0, 0, 0, 293, 0, 0, 0, 0, 313, 317, 0, 0, 0, 0, 337, 0, 0
Offset: 0

Views

Author

Roger L. Bagula, Jun 14 2004

Keywords

Crossrefs

Cf. A005098, A095277, A094897.

Programs

  • Magma
    [IsPrime(4*n+1) and not IsPrime(4*n+3) select 4*n+1 else 0:n in [0..86]]; // Marius A. Burtea, Nov 15 2019
  • Maple
    A094896 := proc(n)
    if isprime(4*n+1) and not isprime(4*n+3) then
        4*n+1;
    else
        0;
    end if;
end proc:
seq(A094896(n),n=0..86) ; # R. J. Mathar, Nov 15 2019
  • Mathematica
    a=Table[If[PrimeQ[4*n+1]==True&&PrimeQ[4*n+3]==False, 4*n+1, 0], {n, 0, 200}]

A153309 Numbers k such that 3*k + 1 is not prime.

Original entry on oeis.org

0, 1, 3, 5, 7, 8, 9, 11, 13, 15, 16, 17, 18, 19, 21, 23, 25, 27, 28, 29, 30, 31, 33, 35, 37, 38, 39, 40, 41, 43, 44, 45, 47, 48, 49, 51, 53, 55, 56, 57, 58, 59, 61, 62, 63, 65, 67, 68, 69, 71, 72, 73, 75, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 91, 93, 95
Offset: 1

Views

Author

Vincenzo Librandi, Dec 23 2008

Keywords

Comments

Terms (except 0) can be written as 3xy +- (x + y) for x > 0, y > 0. - Ron R Spencer, Aug 01 2016
Apart from a(2) = 1 the sequence comprises those numbers k such that (3*k)!/(3*k + 1) is an integer. - Peter Bala, Jan 25 2017

Examples

			Distribution of the even terms in the following triangular array:
                        *;
                      *   8;
                    *   *  16;
                  *   *   *   *;
                *  18   *   *  40;
              *   *  30   *   *  56;
            *   *   *   *   *   *   *;
          *  28   *   *  62   *   *  96;
        *   *  44   *   *  82   *   *  120;
      *   *   *   *   *   *   *   *   *   *;
    *  38   *   *  84   *   *  130  *   *  176;
  *   *  58   *   *  108  *   *  158  *   *  208;
etc., where * marks the noninteger values of (4*h*k + 2*k + 2*h)/3 with h >= k >= 1. - _Vincenzo Librandi_, Jan 17 2013

Links

Crossrefs

Cf. A024892, A014076, A153170, A045751, A095277, A153088, A153329, A153343.

Programs

  • Magma
    [n: n in [0..150] | not IsPrime(3*n + 1)]; // Vincenzo Librandi, Jan 12 2013
  • Maple
    # produces the sequence apart from the term equal to 1
for n from 0 to 100 do
if irem(factorial(3*n), 3*n+1) = 0 then print(n); end if;
end do: # Peter Bala, Jan 25 2017
  • Mathematica
    Select[Range[0, 200], !PrimeQ[3*# + 1]&] (* Vincenzo Librandi, Jan 12 2013 *)
  • PARI
    is(n)=!isprime(3*n+1) \\ Charles R Greathouse IV, Aug 01 2016

Extensions

Erroneous comment deleted by N. J. A. Sloane, Jun 23 2010
0 added by Arkadiusz Wesolowski, Jun 25 2011
Showing 1-8 of 8 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.