OFFSET
1,2
COMMENTS
LINKS
Hisanori Mishima, Primes near n!, Dec 2008.
MAPLE
select(t -> isprime(t!-1) or isprime(t!+1), [$1..600]); # Robert Israel, Aug 25 2016
MATHEMATICA
Select[Range[10^3], Or @@ PrimeQ@ {# - 1, # + 1} &[#!] &] (* Michael De Vlieger, Aug 25 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Sep 29 2003
EXTENSIONS
Values 320 to 546 extracted from Mishima's table by R. J. Mathar, Mar 05 2010
More terms and correction of the initial term from Andrey Zabolotskiy, Aug 25 2016
STATUS
approved