A140315 -id:A140315 - cp's OEIS frontend

A140294 Numbers k such that k!/k# + 1 is prime, where k# is the primorial function (A034386).

0, 1, 2, 3, 4, 5, 8, 14, 20, 26, 34, 56, 104, 153, 182, 194, 217, 230, 280, 281, 462, 463, 529, 1445, 2515, 3692, 6187, 6851, 13917, 17258, 48934, 83515, 96835

Offset: 1

Cino Hilliard, May 25 2008

nonn

96835 is a term of the sequence, but its rank is not currently known. - Serge Batalov, Feb 06 2015
If k is a prime and k is a member, then k-1 is also a member, and k!/k# + 1 is the same as (k-1)!/(k-1)# + 1. See A049420. - Jeppe Stig Nielsen, Aug 12 2024
All k up to 10^5 were resolved by PrimeGrid administrator "Stream" (Roman Trunov) who found a(32) and found the position of term mentioned by Batalov above (it is a(33)). - Jeppe Stig Nielsen, Jul 13 2025

			8!/8# + 1 = 40320/210 + 1 = 193, a prime.

Chris Caldwell, Compositorial

Cf. A034386, A140293, A140315, A049420, A049421, A053982.

A140294 := proc(n) local L, p, s, i; L := 1;
for p in select(isprime, [$2..iquo(n,2)]) do
    s := add(i,i=convert(n,base,p)); L := L*p^((n-s)/(p-1)-1) od;
`if`(isprime(L+1), n, NULL) end:
seq(A140294(i), i=0..104); # Peter Luschny, Mar 27 2013

Primorial[p_] := Times @@ Prime[Range[PrimePi[p]]]; Select[Range[0,194], PrimeQ[#!/Primorial[#] + 1] &] (* T. D. Noe, Mar 27 2013 *)

is(n)=ispseudoprime(n!/prod(i=1,primepi(n),prime(i))+1) \\ Charles R Greathouse IV, Mar 27 2013

PFGW
```
ABC2 $a!/$a#+1
a: from 1 to 3000
```

a(17)-a(25) from Charles R Greathouse IV, Mar 27 2013
a(26)-a(27) from Giovanni Resta, Mar 28 2013
a(28) from Charles R Greathouse IV, Mar 28 2013
a(29) from Giovanni Resta, Apr 02 2013
a(30) from Roger Karpin, Nov 29 2014
a(31) from Roger Karpin, Jun 08 2015
a(32)-a(33) communicated by Jeppe Stig Nielsen, Jul 13 2025

A049420 Composite numbers k such that k!/k# + 1 is prime, where k# = primorial numbers A034386.

Original entry on oeis.org

4, 8, 14, 20, 26, 34, 56, 104, 153, 182, 194, 217, 230, 280, 462, 529, 1445, 2515, 3692, 6187, 6851, 13917, 17258, 48934, 83515, 96835

Offset: 1

Paul Jobling (paul.jobling(AT)whitecross.com)

Note that k!/k# is known as k compositorial.
Subset of A140294. Prime numbers are excluded since k!/k# = (k-1)!/(k-1)# when k is prime. - Giovanni Resta, Mar 28 2013
a(23) > 14000. - Giovanni Resta, Apr 02 2013
a(25) > 50000. - Roger Karpin, Jul 07 2015
The prime associated with a(26) was discovered by Serge Batalov in 2015. All k up to 10^5 were resolved by PrimeGrid administrator "Stream" (Roman Trunov) who found a(25) and the position of a(26). - Jeppe Stig Nielsen, Jul 13 2025

Chris Caldwell, Compositorial

Cf. A034386, A140293, A140294, A140315, A049421, A053982.

Primorial[n_] := Product[Prime[i], {i, 1, PrimePi[n]}];
Select[Range[2,
1000], ! PrimeQ[#] && PrimeQ[(#! / Primorial[#]) + 1] &] (* Robert Price, Oct 11 2019 *)

a(20) from Giovanni Resta, Mar 28 2013
a(21)-a(22) from Giovanni Resta, Apr 02 2013
a(23) from Roger Karpin, Nov 28 2014
a(24) from Roger Karpin, Jul 07 2015
a(25)-a(26) communicated by Jeppe Stig Nielsen, Jul 13 2025

A140293 Numbers k such that k!/k#-1 is prime, where k# is the primorial function (A034386).

Original entry on oeis.org

4, 5, 6, 7, 8, 16, 17, 21, 34, 39, 45, 50, 72, 73, 76, 133, 164, 202, 216, 221, 280, 281, 496, 605, 2532, 2967, 3337, 8711, 10977, 13724, 15250, 18160, 20943, 33684, 41400

Offset: 1

Cino Hilliard, May 25 2008

a(31) > 14000. - Giovanni Resta, Apr 02 2013
a(36) > 50000. - Roger Karpin, Jul 07 2015
If k is a prime and k is a member, then k-1 is also a member, and k!/k# - 1 is the same as (k-1)!/(k-1)# - 1. See A049421. - Jeppe Stig Nielsen, Aug 12 2024

			7!/7# = 5040/210 = 24. 24 - 1 = 23, which is prime.

Chris Caldwell, Compositorial
Chris Caldwell, Compositorial list search

Cf. A140294, A140315, A049420, A049421, A049614, A057017.

Select[Range[16], PrimeQ[#!/(Times@@Prime[Range[PrimePi[#]]]) - 1] &] (* Alonso del Arte, Nov 28 2014 *)

g(n) = for(x=4,n,y=x!/primorial(x)-1;z=nextprime(y+1); if(ispseudoprime(y),print1(x",")))

n such that n!/n# - 1 is prime, where n# is the primorial function n# = product(i = 1 .. pi(n), prime(i)), where pi(n) is the prime counting function.

a(18)-a(27) from Giovanni Resta, Mar 28 2013
a(28)-a(30) from Giovanni Resta, Apr 02 2013
a(31) from Roger Karpin, Nov 28 2014
a(32)-a(33) from Daniel Heuer, ca Aug 2000
a(34)-a(35) from Serge Batalov, Feb 09 2015

A049421 Composite numbers k such that k!/k# - 1 is prime, where k# = primorial numbers A034386.

Original entry on oeis.org

4, 6, 8, 16, 21, 34, 39, 45, 50, 72, 76, 133, 164, 202, 216, 221, 280, 496, 605, 2532, 2967, 3337, 8711, 10977, 13724, 15250, 18160, 20943, 33684, 41400

Offset: 1

Paul Jobling (paul.jobling(AT)whitecross.com)

k!/k# is known as n compositorial.
Subset of A140293. Prime numbers are excluded since k!/k# = (k-1)!/(k-1)# when k is prime. - Giovanni Resta, Mar 28 2013
a(31) > 50000. - Roger Karpin, Jul 08 2015

Chris Caldwell, Compositorial

Cf. A034386, A140293, A140294, A140315, A049420, A057017.

Primorial[n_] := Product[Prime[i], {i, 1, PrimePi[n]}];
Select[Range[2,
1000], ! PrimeQ[#] && PrimeQ[(#! / Primorial[#]) - 1] &] (* Robert Price, Oct 11 2019 *)

More terms from Robert G. Wilson v, Jun 21 2001
a(23)-a(25) from Giovanni Resta, Apr 02 2013
a(26) from Roger Karpin, Nov 29 2014
a(27)-a(28) from Daniel Heuer, ca Aug 2000
a(29)-a(30) from Serge Batalov, Feb 09 2015

cp's OEIS Frontend

A140294 Numbers k such that k!/k# + 1 is prime, where k# is the primorial function (A034386).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PFGW

Extensions

A049420 Composite numbers k such that k!/k# + 1 is prime, where k# = primorial numbers A034386.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions

A140293 Numbers k such that k!/k#-1 is prime, where k# is the primorial function (A034386).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A049421 Composite numbers k such that k!/k# - 1 is prime, where k# = primorial numbers A034386.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions