OFFSET
1,2
EXAMPLE
0! + 0! + 1 = 3 is prime.
6! + 3! + 1 = 727 is prime.
MAPLE
select(k->isprime(factorial(2*k)+factorial(k)+1), [$0..600]); # Muniru A Asiru, May 27 2018
MATHEMATICA
Flatten[{0, Select[Range[100], PrimeQ[(2*#)! + #! + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
PROG
(PARI) isok(k) = ispseudoprime((2*k)!+k!+1); \\ Altug Alkan, Mar 22 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Seiichi Manyama, Mar 22 2018
EXTENSIONS
a(8)-a(9) from Michael S. Branicky, Apr 16 2023
STATUS
approved