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.

Previous Showing 11-19 of 19 results.

A082671 Numbers n such that (n!-2)/2 is a prime.

Original entry on oeis.org

3, 4, 5, 6, 9, 31, 41, 373, 589, 812, 989, 1115, 1488, 1864, 1918, 4412, 4686, 5821, 13830
Offset: 1

Views

Author

Cino Hilliard, May 18 2003

Keywords

Examples

			(4!-2)/2 = 11 is a prime.

Crossrefs

Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199, A139200, A139201, A139202, A139203, A139204, A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071

Programs

  • Magma
    [n: n in [1..600]| IsPrime((Factorial(n)-2) div 2)]; // Vincenzo Librandi, Feb 18 2015
  • Mathematica
    Select[Range[0, 14000], PrimeQ[(#! - 2) / 2] &] (* Vincenzo Librandi, Feb 18 2015 *)
  • PARI
    xfactpk(n,k=2) = { for(x=2,n, y = (x!-k)/k; if(isprime(y),print1(x", ")) ) }

Extensions

More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
Edited by T. D. Noe, Oct 30 2008

A139199 Numbers k such that (k!-4)/4 is prime.

Original entry on oeis.org

4, 5, 6, 7, 8, 10, 15, 18, 23, 157, 165, 183, 184, 362, 611, 908, 2940, 6875, 9446, 16041
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

Numbers k such that (k!-m)/m is prime:
for m=1 see A002982
for m=2 prime or pseudoprime see A082671
for m=3 see A139056
for m=4 see A139199
for m=5 see A139200
for m=6 see A139201
for m=7 see A139202
for m=8 see A139203
for m=9 see A139204
for m=10 see A139205
a(17) > 2000 - Ray G. Opao, Sep 30 2008
a(21) > 25000 - Robert Price, Sep 25 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 4)/4], Print[a]; AppendTo[a, n]], {n, 1, 184}]; a (*Artur Jasinski*)
  • PARI
    is(n)=n>3 && isprime(n!/4-1) \\ Charles R Greathouse IV, Apr 29 2015

Extensions

a(15)-a(16) from Ray G. Opao, Sep 30 2008
a(17) from Serge Batalov, Feb 18 2015
a(18)-a(20) from Robert Price, Sep 25 2016

A139205 Numbers k such that (k!-10)/10 is prime.

Original entry on oeis.org

5, 6, 7, 11, 13, 17, 28, 81, 87, 433, 640, 647, 798, 1026, 1216, 1277, 3825, 6684
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(19) > 25000. - Robert Price, Dec 23 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 10)/10], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a (*Artur Jasinski*)
Select[Range[700],PrimeQ[(#!-10)/10]&] (* Harvey P. Dale, Feb 15 2015 *)

Extensions

One additional term (a(12)) from Harvey P. Dale, Feb 15 2015
More terms from Serge Batalov, Feb 18 2015
a(18) from Robert Price, Dec 23 2016

A076680 Numbers k such that 4*k! + 1 is prime.

Original entry on oeis.org

0, 1, 4, 7, 8, 9, 13, 16, 28, 54, 86, 129, 190, 351, 466, 697, 938, 1510, 2748, 2878, 3396, 4057, 4384, 5534, 7069, 10364
Offset: 1

Views

Author

Phillip L. Poplin (plpoplin(AT)bellsouth.net), Oct 25 2002

Keywords

Comments

a(25) > 6311. - Jinyuan Wang, Feb 06 2020

Examples

			k = 7 is a term because 4*7! + 1 = 20161 is prime.

Links

Crossrefs

Cf. m*n!-1 is a prime: A076133, A076134, A099350, A099351, A180627-A180631.
Cf. m*n!+1 is a prime: A051915, A076679-A076683, A178488, A180626, A126896.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205.
Cf. n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071.

Programs

  • Mathematica
    Select[Range[5000],PrimeQ[4#!+1]&] (* Harvey P. Dale, Mar 23 2011 *)
  • PARI
    is(k) = ispseudoprime(4*k!+1); \\ Jinyuan Wang, Feb 06 2020

Extensions

Corrected (added missed terms 2748, 2878) by Serge Batalov, Feb 24 2015
a(24) from Jinyuan Wang, Feb 06 2020
a(25)-a(26) from Michael S. Branicky, Jul 04 2024

A139200 Numbers k such that (k!-5)/5 is prime.

Original entry on oeis.org

5, 11, 12, 16, 36, 41, 42, 47, 127, 136, 356, 829, 1863, 2065, 2702, 4509, 7498
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(16) > 3000. - Ray G. Opao, Oct 05 2008
a(18) > 25000. - Robert Price, Nov 20 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Magma
    [n: n in [5..500] | IsPrime((Factorial(n)-5) div 5)]; // Vincenzo Librandi, Nov 21 2016
  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 5)/5], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a (* Artur Jasinski *)

Extensions

a(13)-a(15) from Ray G. Opao, Oct 05 2008
a(16) from Serge Batalov, Feb 18 2015
a(17) from Robert Price, Nov 20 2016

A139201 Numbers k such that (k!-6)/6 is prime.

Original entry on oeis.org

4, 5, 7, 8, 11, 14, 16, 17, 18, 20, 43, 50, 55, 59, 171, 461, 859, 2830, 3818, 5421, 5593, 10118, 10880, 24350
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(25) > 25000. - Robert Price, Dec 15 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1 <= m <= 10).

Programs

  • Maple
    a:=proc(n) if isprime((1/6)*factorial(n)-1)=true then n else end if end proc: seq(a(n),n=4..500); # Emeric Deutsch, Apr 29 2008
  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 6)/6], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a (* Artur Jasinski *)

Extensions

2 more terms from Emeric Deutsch, Apr 29 2008
More terms from Serge Batalov, Feb 18 2015
a(22)-a(24) from Robert Price, Dec 15 2016

A139202 Numbers k such that (k!-7)/7 is prime.

Original entry on oeis.org

7, 9, 20, 23, 46, 54, 57, 71, 85, 387, 396, 606, 1121, 2484, 6786, 9321, 11881, 18372
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(19) > 25000. - Robert Price, Nov 05 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 7)/7], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a (*Artur Jasinski*)

Extensions

More terms from Alexis Olson (AlexisOlson(AT)gmail.com), Nov 14 2008
a(13)-a(14) PRPs from Sean A. Irvine, Aug 05 2010
a(15)-a(18) PRP from Robert Price, Nov 05 2016

A139203 Numbers k such that (k!-8)/8 is prime.

Original entry on oeis.org

4, 6, 8, 10, 11, 16, 19, 47, 66, 183, 376, 507, 1081, 1204, 12111, 23181
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(17) > 25000. - Robert Price, Oct 08 2016

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Maple
    a:=proc(n) if isprime((1/8)*factorial(n)-1)=true then n else end if end proc: seq(a(n),n=4..550); # Emeric Deutsch, May 07 2008
  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 8)/8], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a

Extensions

2 more terms from Emeric Deutsch, May 07 2008
More terms from Serge Batalov, Feb 18 2015
a(15)-a(16) from Robert Price, Oct 08 2016

A139204 Numbers k such that (k!-9)/9 is prime.

Original entry on oeis.org

6, 15, 17, 18, 21, 27, 29, 30, 37, 47, 50, 64, 125, 251, 602, 611, 1184, 1468, 5570, 10679, 15798, 21237
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

a(20) > 10000. The PFGW program has been used to certify all the terms up to a(19), using a deterministic test which exploits the factorization of a(n) + 1. - Giovanni Resta, Mar 28 2014
a(23) > 25000. - Robert Price, Mar 29 2017

Crossrefs

Cf. A139189, A139190, A139191, A139192, A139193, A139194, A139195, A139196, A139197, A139198.
Cf. n!/m-1 is a prime: A002982, A082671, A139056, A139199-A139205; n!/m+1 is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A137390, A139071 (1<=m<=10).

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! - 9)/9], Print[a]; AppendTo[a, n]], {n, 1, 300}]; a
  • PARI
    for(n=1,1000,if(floor(n!/9-1)==n!/9-1,if(ispseudoprime(n!/9-1),print(n)))) \\ Derek Orr, Mar 28 2014

Extensions

a(14)-a(16) from Derek Orr, Mar 28 2014
a(17)-a(19) from Giovanni Resta, Mar 28 2014
a(20)-a(22) from Robert Price, Mar 29 2017
Previous Showing 11-19 of 19 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.