OFFSET
1,1
COMMENTS
Conjecture: No term is zero.
This conjecture is implied by Dickson's conjecture. - Robert Israel, Feb 13 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..447
FORMULA
MAPLE
f := proc (n) local k, t; t := factorial(n); for k from t by t do if isprime(k-1) and isprime(k+1) then return k end if end do end proc;
map(f, [`$`(1 .. 20)]); # Robert Israel, Feb 13 2018
MATHEMATICA
lmn[n_]:=Module[{k=n!, m=1}, While[AnyTrue[k*m+{1, -1}, CompositeQ], m++]; k*m]; Join[{4, 4}, Array[lmn, 20, 3]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 27 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
EXTENSIONS
More terms from Ryan Propper, Jun 16 2005
STATUS
approved