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

A053713 Upper balancing primes to prime-balanced factorials.

Original entry on oeis.org

7, 127, 3628811, 51090942171709440031
Offset: 1

Views

Author

Labos Elemer, Feb 10 2000

Keywords

Comments

The next two terms are 171!+397 and 190!+409, which are too large to include. - Jud McCranie, Jul 04 2000

Examples

			127 is balancing 5! = 120 from above, where 5! = 120 is a balanced factorial.
		

Crossrefs

Formula

a(n) = A053709(n)! + A053711(n) = A053710(n) + A053711(n). - Amiram Eldar, Mar 10 2025

A069941 Number of primes p such that n! <= p <= n! + n^2.

Original entry on oeis.org

1, 3, 3, 3, 4, 5, 5, 4, 7, 7, 9, 6, 5, 8, 4, 9, 10, 14, 8, 16, 14, 14, 7, 6, 16, 12, 12, 15, 13, 12, 9, 12, 12, 17, 13, 6, 12, 18, 15, 13, 15, 17, 15, 23, 19, 12, 13, 19, 18, 22, 20, 19, 16, 17, 19, 19, 23, 20, 18, 19, 23, 24, 19, 15, 19, 20, 26, 18, 24, 22, 24, 25, 24, 16, 23
Offset: 1

Views

Author

Benoit Cloitre, May 04 2002

Keywords

Comments

Conjecture: if n>=2 there are at least 3 primes p such that n!<=p<=n!+n^2 (or stronger: for n>1, a(n) > log(n)). This is stronger than the conjecture described in A037151(n). Because if n!+k is prime, k composite, k=A*B, where A and B must have, each one, at least one prime factor>n (if not: A=q*A' q<=n then n!+k is divisible by q), hence k>n^2. Also stronger (but more restrictive) than the Schinzel conjecture: "for m large enough there's at least one prime p such that m <= p <= m + log(m)^2" since n^2 < log(n!)^2 for n>5.
For the n-th term we have a(n) = pi(n!+n^2) - pi(n!), where pi(x) is the prime counting function. However, pi(n!) is difficult to compute for n>25. The Prime Number Theorem states that pi(x) and Li(x), the logarithmic integral, are asymptotically equal. Hence we can approximate a(n) by Li(n!+n^2) - Li(n!). These approximate values of a(n) are plotted as the red curve in the "Theoretical versus Actual" plot. By the way, using x/log(x) as approximation for Li(x) would change the curve by at most 1 unit. - T. D. Noe, Mar 06 2010

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[Range[n!,n!+n^2], PrimeQ]], {n,100}] (* T. D. Noe, Mar 06 2010 *)
  • PARI
    for(n=1,75,print1(sum(k=n!,n!+n^2,isprime(k)),","))

A053708 Nearest prime to n! (but not equal to n!).

Original entry on oeis.org

2, 3, 5, 23, 113, 719, 5039, 40343, 362867, 3628789, 39916801, 479001599, 6227020777, 87178291199, 1307674368043, 20922789888023, 355687428096031, 6402373705728037, 121645100408832089, 2432902008176640029, 51090942171709439969, 1124000727777607680031, 25852016738884976639911
Offset: 1

Views

Author

Labos Elemer, Feb 10 2000

Keywords

Comments

If n! is the average of its closest prime neighbors then the smaller prime is to be chosen (as in A051701).

Examples

			For 8! = 40320 the closest upper and lower primes are 40289 and 40343 with d = 31 and d = 23, so 40343 is closer to 8! than the lower neighbor.
		

Crossrefs

Programs

  • Mathematica
    f[n_]:=Module[{nf=n!,s,l},s=NextPrime[nf,-1];l=NextPrime[nf];If[nf-s>l-nf,l,s]]
    Table[f[i],{i,25}] (* Harvey P. Dale, Dec 08 2010 *)

Extensions

Corrected by Rick L. Shepherd, Jan 11 2006
a(21)-a(23) from Amiram Eldar, Mar 10 2025

A178606 Smallest prime > n!! (double factorial of n).

Original entry on oeis.org

2, 3, 5, 11, 17, 53, 107, 389, 947, 3847, 10399, 46091, 135151, 645131, 2027033, 10321937, 34459429, 185794579, 654729139, 3715891217, 13749310577, 81749606417, 316234143227, 1961990553613, 7905853580633, 51011754393671
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    PrimeNext[n_]:=Module[{k},k=n+1;While[ !PrimeQ[k],k++ ];k]; Table[PrimeNext[n!! ],{n,40}]

A178607 Largest prime < n!! (double factorial of n).

Original entry on oeis.org

2, 7, 13, 47, 103, 383, 941, 3833, 10391, 46073, 135131, 645097, 2027023, 10321919, 34459423, 185794463, 654729073, 3715891181, 13749310511, 81749606383, 316234143163, 1961990553581, 7905853580621, 51011754393599
Offset: 3

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    PrimePrev[n_]:=Module[{k},k=n-1;While[ !PrimeQ[k],k-- ];k]; Table[PrimePrev[n!! ],{n,3,40}]
    NextPrime[#,-1]&/@(Range[3,30]!!) (* Harvey P. Dale, Jul 13 2015 *)
  • PARI
    a(n)=if(n<2, 1, n*a(n-2)); for(n=3,26,print1(precprime(a(n)-1)", ")); \\ Graziano Aglietti (mg5055(AT)mclink.it), Aug 23 2010

Formula

a(n) = A151799(A006882(n)). - R. J. Mathar, Jun 23 2010

Extensions

Offset corrected by R. J. Mathar, Jun 23 2010

A187874 Second smallest prime after n!.

Original entry on oeis.org

3, 3, 5, 11, 31, 131, 733, 5059, 40351, 362903, 3628819, 39916817, 479001643, 6227020873, 87178291241, 1307674368149, 20922789888041, 355687428096053, 6402373705728061, 121645100408832109, 2432902008176640037, 51090942171709440037
Offset: 0

Views

Author

Keywords

Examples

			2!=2, second smallest prime=5;
3!=6, second smallest prime=11; ..
		

Crossrefs

Programs

  • Mathematica
    NextPrime[Range[0, 30]!, 2]
Previous Showing 11-16 of 16 results.