OFFSET
1,1
COMMENTS
7*8*9*10*11=55440 +-1 -> primes,..
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f1[n_]:=PrimeQ[n-1]&&PrimeQ[n+1]; f2[n_]:=n*(n+1)*(n+2)*(n+3)*(n+4); lst={}; Do[If[f1[f2[n]], AppendTo[lst, n]], {n, 8!}]; lst
Select[Partition[Range[3500], 5, 1], AllTrue[Times@@#+{1, -1}, PrimeQ]&][[All, 1]] (* Harvey P. Dale, May 13 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 13 2010
EXTENSIONS
Definition modified by Harvey P. Dale, May 13 2022
STATUS
approved