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

A151892 Numbers m such that m! + (next prime after m!) is prime.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 14, 15, 20, 25, 32, 34, 35, 67, 89, 191, 316, 411, 1213, 1280, 2022, 2267
Offset: 1

Views

Author

Artur Jasinski, Apr 12 2008

Keywords

Crossrefs

Cf. A002981, A151894, A151893, A151903, A084749.

Programs

  • Mathematica
    a = {}; Do[If[PrimeQ[n! + NextPrime[n! ]], AppendTo[a, n]], {n, 200}]; a (* Artur Jasinski *)
Select[Range[420],PrimeQ[#!+NextPrime[#!]]&] (* Harvey P. Dale, Aug 20 2021 *)

Extensions

a(17)-a(18) from Robert G. Wilson v, Jun 11 2010
a(19)-a(20) from Michael S. Branicky, May 27 2023
a(21)-a(22) from Michael S. Branicky, Aug 03 2024

A151893 a(n) = smallest number k such that n! + k-th prime after n! is prime.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 2, 4, 10, 2, 4, 3, 1, 1, 4, 2, 9, 14, 1, 6, 14, 6, 5, 1, 11, 3, 35, 14, 20, 4, 1, 10, 1, 1, 6, 37, 33, 25, 17, 62, 2, 5, 26, 12, 10, 11, 37, 9, 9, 4, 50, 32, 9, 9, 7, 9, 47, 10, 40, 80, 60, 3, 18, 6, 2, 1
Offset: 1

Views

Author

Artur Jasinski, Apr 12 2008

Keywords

Links

Crossrefs

Cf. A002981, A151892, A151894, A151903, A139213, A139214.

Programs

  • Mathematica
    a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n!, k]], k++ ]; Print[k]; AppendTo[a, k], {n, 1, 200}]; a

A151903 a(n) = smallest number k such that n! + k-th prime after n is prime.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 5, 3, 1, 2, 5, 13, 2, 8, 3, 4, 5, 16, 2, 3, 3, 16, 23, 4, 8, 6, 10, 38, 18, 20, 11, 1, 14, 7, 21, 52, 2, 13, 4, 5, 12, 6, 1, 38, 12, 36, 1, 8, 3, 43, 1, 4, 32, 4, 19, 12, 45, 45, 41, 118, 14, 40, 1, 26, 43, 2, 4, 13, 15, 128, 6, 1, 20, 29, 9, 14, 9, 36, 6, 104, 9, 14, 26, 9
Offset: 1

Views

Author

Artur Jasinski, Apr 12 2008

Keywords

Comments

Because numbers of the form : (n! + prime) are divisible by all primes <= n that mean that first prime number can have form n! + k-th prime after n and no primes of the form n! + k for k > 1 and k < next prime after n

Links

Crossrefs

Cf. A002981, A151892, A151894, A151893, A139213, A139214.

Programs

  • Mathematica
    a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n, k]], k++ ]; AppendTo[a, k], {n, 1, 200}]; a
Showing 1-3 of 3 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.