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-20 of 41 results. Next

A139148 Smallest positive integer of the form (m!+n)/n.

Original entry on oeis.org

2, 2, 3, 7, 25, 2, 721, 4, 81, 13, 3628801, 3, 479001601, 361, 9, 46, 20922789888001, 41, 6402373705728001, 7, 241, 1814401, 1124000727777607680001, 2, 145153, 239500801, 13441, 181, 304888344611713860501504000001, 5
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Crossrefs

Programs

  • Mathematica
    a = {}; Do[m = 1; While[ ! IntegerQ[m!/n], m++ ]; AppendTo[a, (m! + n)/n], {n, 1, 50}]; a

Formula

a(n) = (n + (A002034(n))!)/n.
a(n) = A007672(n) + 1. - Charles R Greathouse IV, Dec 09 2014

A139160 a(n)=(prime(n)!+2)/2.

Original entry on oeis.org

2, 4, 61, 2521, 19958401, 3113510401, 177843714048001, 60822550204416001, 12926008369442488320001, 4420880996869850977271808000001, 4111419327088961408862781440000001
Offset: 1

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Comments

For numbers of the form (p(n)!+1)/1 see A139159
For numbers of the form (p(n)!+2)/2 see A139160
For numbers of the form (p(n)!+3)/3 see A139161
For numbers of the form (p(n)!+4)/4 see A139162
For numbers of the form (p(n)!+5)/5 see A139163
For numbers of the form (p(n)!+6)/6 see A139164
For numbers of the form (p(n)!+7)/7 see A139165
For numbers of the form (p(n)!+8)/8 see A139166
For numbers of the form (p(n)!+9)/9 see A139089
For numbers of the form (p(n)!+10)/10 see A139168
For offsets for above sequences see A139169
For smallest integers of the form (p(m)!+n)/n see A139170

Crossrefs

Programs

  • Mathematica
    Table[(Prime[n]! + 2)/2, {n, 1, 30}]
  • PARI
    a(n)=prime(n)!/2 + 1 \\ Charles R Greathouse IV, Apr 29 2015

A151913 Numbers n for which (8+n!)/8 is prime.

Original entry on oeis.org

7, 9, 10, 12, 14, 20, 23, 24, 29, 44, 108, 2049, 3072, 4862, 8807, 15089
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

a(17) > 25000. - Robert Price, Dec 20 2016

Crossrefs

For primes of the form (8+k!!)/8 see A139066.
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! + 8)/8], AppendTo[a, n]], {n, 1, 500}]; a
  • PARI
    is(n)=n>6 && isprime((8+n!)/8) \\ Charles R Greathouse IV, Apr 29 2016

Extensions

Definition corrected Feb 24 2010
More terms from Serge Batalov, Feb 18 2015
a(15)-a(16) from Robert Price, Dec 20 2016

A139089 a(n) = prime(n)!/9 + 1.

Original entry on oeis.org

561, 4435201, 691891201, 39520825344001, 13516122267648001, 2872446304320552960001, 982417999304411328282624000001, 913648739353102535302840320000001
Offset: 4

Views

Author

Artur Jasinski, Apr 08 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Table[(Prime[n]! + 9)/9, {n, 4, 30}]
    Prime[Range[4,12]]!/9+1 (* Harvey P. Dale, Aug 22 2020 *)

A139059 Primes of the form (5+k!)/5.

Original entry on oeis.org

1009, 72577, 7983361, 17435658241, 24329020081766401, 5170403347776995328001, 23924444173096038912392632299131543012876746752000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (5+k!)/5 is prime see A139058.

Crossrefs

Programs

  • Magma
    [ a: n in [1..50] | IsPrime(a) and b mod 5 eq 0 where a is b div 5 where b is Factorial(n)+5 ];
    
  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 5)/5], AppendTo[a, (n! + 5)/5]], {n, 1, 50}]; a
    Select[(5+Range[50]!)/5,PrimeQ] (* Harvey P. Dale, Dec 04 2020 *)
  • PARI
    for(k=5,1e3,if(ispseudoprime(t=(5+k!)/5),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139152(A139058(n)). - Amiram Eldar, Oct 14 2024

A139166 a(n) = (prime(n)!+8)/8.

Original entry on oeis.org

16, 631, 4989601, 778377601, 44460928512001, 15205637551104001, 3231502092360622080001, 1105220249217462744317952000001, 1027854831772240352215695360000001
Offset: 3

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Table[(Prime[n]! + 8)/8, {n, 3, 30}]

A139168 a(n) = (prime(n)! + 10)/10.

Original entry on oeis.org

13, 505, 3991681, 622702081, 35568742809601, 12164510040883201, 2585201673888497664001, 884176199373970195454361600001, 822283865417792281772556288000001
Offset: 3

Views

Author

Artur Jasinski, Apr 11 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Table[(Prime[n]! + 10)/10, {n, 3, 30}]

A139060 Primes of the form (4+k!)/4.

Original entry on oeis.org

7, 31, 181, 1556755201, 12772735542927360001, 3877802510832746496000001, 65782709233423382541804503040000001, 203978820811974433586402817399028973568000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (4+k!)/4 is prime see A139061.

Crossrefs

Programs

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

Formula

a(n) = A139151(A139061(n)). - Amiram Eldar, Oct 13 2024

A139062 Primes of the form (6+k!)/6.

Original entry on oeis.org

2, 5, 604801, 6652801, 1037836801, 14529715201, 59281238016001, 8515157028618240001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (6+k!)/6 is prime see A139063.

Crossrefs

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 6)/6], AppendTo[a, (n! + 6)/6]], {n, 1, 50}]; a
  • PARI
    for(k=3,1e3,if(ispseudoprime(t=k!/6+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139153(A139063(n)). - Amiram Eldar, Oct 14 2024

A139064 Primes of the form (7+k!)/7.

Original entry on oeis.org

5702401, 186810624001, 2988969984001, 2215887149047283712000001, 1476163995198020704238093048217600000001, 19811874077955690819705574245769915192271839538955347505831613562880000000000001
Offset: 1

Views

Author

Artur Jasinski, Apr 07 2008

Keywords

Comments

For numbers k for which (7+k!)/7 is prime see A139065.

Crossrefs

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[(n! + 7)/7], AppendTo[a, (n! + 7)/7]], {n, 1, 50}]; a
  • PARI
    for(k=7,1e3,if(ispseudoprime(t=k!/7+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = A139154(A139065(n)). - Amiram Eldar, Oct 14 2024
Previous Showing 11-20 of 41 results. Next