A346168 Primes p such that p*p! - 1 is prime.

2, 3, 5, 7, 11, 397, 599, 2239

Offset

1,1

Comments

a(9) > 10^4.

Links

Table of n, a(n) for n=1..8.

Maple

select(p -> isprime(p) and isprime(p*factorial(p) - 1), [$2 .. 600])

Mathematica

Select[Range[2, 600], PrimeQ[#] && PrimeQ[#*#! - 1] &]

Prog

(PARI) a = List(); for(p=2, 600, if(isprime(p) && isprime(p*p!-1), listput(a, p))); a
(Sage) [p for p in range(2, 600) if is_prime(p) and is_prime(p*factorial(p) - 1)]

Crossrefs

Prime terms of A090704.

Cf. A001563, A090703, A188914, A346167.

Sequence in context: A082625 A030286 A046484 * A062888 A046483 A114835

Adjacent sequences: A346165 A346166 A346167 * A346169 A346170 A346171

Keyword

nonn,more

Author

Reza K Ghazi, Jul 08 2021

Status

approved