login
A346167
Primes p such that p*p! + 1 is also prime.
1
2, 3, 5, 7, 19, 23, 149, 151, 197
OFFSET
1,1
COMMENTS
a(10) > 10^4.
MAPLE
select(p -> isprime(p) and isprime(p*factorial(p) + 1), [$2 .. 200])
MATHEMATICA
Select[Range[2, 200], PrimeQ[#] && PrimeQ[#*#! + 1] &]
PROG
(PARI) a = List(); for(p=2, 200, if(isprime(p) && isprime(p*p!+1), listput(a, p))); a
(Sage) [p for p in range(2, 200) if is_prime(p) and is_prime(p*factorial(p) + 1)]
CROSSREFS
Prime terms of A090703.
Cf. A346168.
Sequence in context: A345335 A025019 A140327 * A163074 A230041 A068803
KEYWORD
nonn,more
AUTHOR
Reza K Ghazi, Jul 08 2021
STATUS
approved