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-10 of 54 results. Next

A089085 Numbers k such that (k! + 3)/3 is prime.

Original entry on oeis.org

3, 5, 6, 8, 11, 17, 23, 36, 77, 93, 94, 109, 304, 497, 1330, 1996, 3027, 3053, 4529, 5841, 20556, 26558, 28167
Offset: 1

Views

Author

Cino Hilliard, Dec 05 2003

Keywords

Comments

a(21) > 20000. The PFGW program has been used to certify all the terms up to a(20), using the "N-1" deterministic test. - Giovanni Resta, Mar 31 2014

Crossrefs

Cf. A089131.
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

Extensions

More terms from Don Reble, Dec 06 2003
1330 from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
Typo in Mma program corrected by Vincenzo Librandi, Dec 12 2011
a(16)-a(20) from Giovanni Resta, Mar 31 2014
a(21)-a(23) from Serge Batalov, Feb 17 2015

A082672 Numbers n such that (n! + 2)/2 is a prime.

Original entry on oeis.org

2, 4, 5, 7, 8, 13, 16, 30, 43, 49, 91, 119, 213, 1380, 1637, 2258, 4647, 9701, 12258
Offset: 1

Views

Author

Cino Hilliard, May 18 2003

Keywords

Crossrefs

Cf. A089130.
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 [1..300] | IsPrime((Factorial(n)+2) div 2) ];
  • Mathematica
    Select[Range[10^2], PrimeQ[(#!+2)/2] &] (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
  • PARI
    \\ x such that (x!+2)/2 is prime
xfactpk(n,k=2) = { for(x=2,n, y = (x!+k)/k; if(isprime(y),print1(x, ", ")) ) }

Extensions

More terms from Don Reble, Dec 08 2003
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008

A137390 Numbers k for which (9 + k!)/9 is prime.

Original entry on oeis.org

8, 46, 87, 168, 259, 262, 292, 329, 446, 1056, 3562, 11819, 26737
Offset: 1

Views

Author

Artur Jasinski, Apr 09 2008

Keywords

Comments

No other k exists, for k <= 6000. - Dimitris Zygiridis (dmzyg70(AT)gmail.com), Jul 25 2008
The next number in the sequence, if one exists, is greater than 10944. - Robert Price, Mar 16 2010
Borrowing from A139074 another term in this sequence is 26737. There may be others between 10944 and 26737. - Robert Price, Dec 13 2011
There are no other terms for k < 26738. - Robert Price, Feb 10 2012

Examples

			a(11) = 3562 because 3562 is the 11th natural number for which k!/9 + 1 is prime. 3562 is the new term.

Crossrefs

Cf. A139068 (primes of the form (9 + k!)/9).
Cf. k!/m - 1 is a prime: A002982, A082671, A139056, A139199-A139205.
Cf. (m + k!)/m is a prime: A002981, A082672, A089085, A139061, A139058, A139063, A139065, A151913, A139071.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 9)/9], AppendTo[a, n]], {n, 1, 500}]; a
  • PARI
    for(n=6,1e4,if(ispseudoprime(n!/9+1),print1(n", "))) \\ Charles R Greathouse IV, Jul 15 2011
  • PFGW
    ABC2 $a!/9+1
a: from 6 to 1000 // Jinyuan Wang, Feb 04 2020

Extensions

Edited by N. J. A. Sloane, May 15 2008 at the suggestion of R. J. Mathar
a(10) corrected from 1053 to 1056 by Dmitry Kamenetsky, Jul 12 2008
a(11) from Dimitris Zygiridis (dmzyg70(AT)gmail.com), Jul 25 2008
a(12)-a(13) from Robert Price, Feb 10 2012

A139066 Primes of the form (8+k!)/8.

Original entry on oeis.org

631, 45361, 453601, 59875201, 10897286401, 304112751022080001, 3231502092360622080001, 77556050216654929920001, 1105220249217462744317952000001, 332283946848556096005453226376826986289954816000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (8+k!)/8 is prime see A151913.
The next term (a(11)) has 174 digits. - Harvey P. Dale, May 10 2016

Links

Crossrefs

Cf. A020458, A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139062, A139063, A139064, A139065, A139155, A151913.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 8)/8], AppendTo[a, (n! + 8)/8]], {n, 1, 50}]; a
Select[(8+Range[50]!)/8,PrimeQ] (* Harvey P. Dale, May 10 2016 *)
  • PARI
    for(k=4,1e3,if(ispseudoprime(t=k!/8+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139155(A151913(n)). - Amiram Eldar, Oct 14 2024

Extensions

Corrected link to sequence of indexes. - Serge Batalov, Feb 17 2015
a(10) from Harvey P. Dale, May 10 2016

A139068 Primes of the form k!/9 + 1.

Original entry on oeis.org

4481, 611402462201343216650033936533361654773516861440000000001, 234195255375503079690400057633265510581087082006817356924774723468294901747510352675631491470712754833859385753600000000000000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (9+k!)/9 is prime see A137390.

Links

Crossrefs

Cf. A020458, A007749, A082672, A089085, A089130, A117141, A137390, A139056, A139057, A139058, A139059, A139060, A139061, A139062, A139063, A139064, A139065, A139066, A137390, A139070, A139071, A139072, A139156.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 9)/9], AppendTo[a, (n! + 9)/9]], {n, 1, 150}]; a
Select[Range[100]!/9+1,PrimeQ] (* Harvey P. Dale, Aug 17 2017 *)
  • PARI
    for(n=6,1e4,if(ispseudoprime(t=n!/9+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139156(A137390(n)). - Amiram Eldar, Oct 14 2024

A139070 Primes of the form (10+k!)/10.

Original entry on oeis.org

13, 73, 3991681, 47900161, 130767436801, 2585201673888497664001, 40329146112660563558400001, 1376375309122634504631597958158090240000001, 11962222086548019456196316149565771506438373376000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (10+k!)/10 is prime see A139071.

Links

Crossrefs

Cf. A020458, A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139062, A139063, A139064, A139065, A139066, A139068, A137390, A139071, A139072, A139157.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 10)/10], AppendTo[a, (n! + 10)/10]], {n, 1, 50}]; a
Select[(Range[50]!+10)/10,PrimeQ] (* Harvey P. Dale, Sep 18 2013 *)
  • PARI
    for(k=5,1e3,if(ispseudoprime(t=k!/10+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139157(A139071(n)). - Amiram Eldar, Oct 14 2024

A139075 Primes p arising in A139074.

Original entry on oeis.org

3, 2, 3, 31, 1009, 2, 5702401, 631
Offset: 1

Views

Author

Artur Jasinski, Apr 08 2008, Apr 21 2008

Keywords

Comments

a(23) = (23+1579!)/23. - Andrew V. Sutherland, Apr 11 2008.
Smallest mother factorial prime p of order n, i.e. smallest prime of the form (p!+n)/n where p is prime.
For smallest daughter factorial prime p of order n see A139074.
For smallest father factorial prime p of order n see A139207.
For smallest son factorial prime p of order n see A139206.
a(9)=26737!/9+1 is a 106758 digit (probable) prime. Easily calculated but too large to enter here a(10)=13, a(11)=566092801, a(12)=11. [Robert Price, Jan 19 2011]

Crossrefs

Cf. A082672, A089085, A089130, A117141, A007749, A139056-A139066, A020458, A139068, A137390, A139070-A139075, A136019, A136020, A136026, A136027.

Programs

  • Mathematica
    a = {}; Do[k = 1; While[ ! PrimeQ[(Prime[k]! + n)/n], k++ ]; AppendTo[a, Prime[(Prime[k]! + n)/n]], {n, 1, 8}]; a

A139058 Numbers n such that (5+n!)/5 is prime.

Original entry on oeis.org

7, 9, 11, 14, 19, 23, 45, 121, 131, 194, 735, 751, 1316, 1372, 2084, 2562, 5678, 5758, 12533, 24222
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For primes of the form (5+n!)/5 see A139059.
a(21) > 25000. - Robert Price, Nov 20 2016

Crossrefs

Cf. A139059.
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..734] | IsPrime((Factorial(n)+5) div 5) ];
  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 5)/5], AppendTo[a, n]], {n, 1, 751}]; a
  • PARI
    A139058(n) = local(k=(n!+5)\5); if(isprime(k), k, 0);
for(n=5, 800, if(A139058(n)>0, print1(n, ", ")))

Extensions

More terms from Serge Batalov, Feb 18 2015
a(19)-a(20) from Robert Price, Nov 20 2016

A139061 Numbers n for which (4+n!)/4 is prime.

Original entry on oeis.org

4, 5, 6, 13, 21, 25, 32, 40, 61, 97, 147, 324, 325, 348, 369, 1290, 1342, 3167, 6612, 8176, 10990
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For primes of the form (4+k!)/4, see A139060.
a(22) > 25000. - Robert Price, Jan 10 2017

Crossrefs

Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072.
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], AppendTo[a, n]], {n, 1, 500}]; a
Select[Range[500],PrimeQ[(4+#!)/4]&]  (* Harvey P. Dale, Mar 24 2011 *)
  • PARI
    for(n=4,1e3,if(ispseudoprime(n!/4+1),print1(n", "))) \\ Charles R Greathouse IV, Jul 15 2011

Extensions

More terms from Serge Batalov, Feb 18 2015
a(19) - a(21) from Robert Price, Jan 10 2017

A139063 Numbers k for which (6+k!)/6 is prime.

Original entry on oeis.org

3, 4, 10, 11, 13, 14, 17, 21, 82, 115, 165, 167, 173, 174, 208, 225, 380, 655, 1187, 2000, 2568, 3010, 4542, 8750, 12257, 12601, 24083
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For primes of the form (6+k!)/6, see A139062.
a(28) > 25000. - Robert Price, Nov 20 2016

Crossrefs

Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458.
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! + 6)/6], AppendTo[a, n]], {n, 1, 500}]; a
  • PARI
    for(k=3,1e3,if(ispseudoprime(k!/6+1),print1(k", "))) \\ Charles R Greathouse IV, Jul 15 2011

Extensions

a(18) and a(19) from Robert Israel, May 19 2014
More terms from Serge Batalov, Feb 18 2015
a(24)-a(27) from Robert Price, Nov 20 2016
Showing 1-10 of 54 results. Next

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

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