login
A174243
Least of 5 consecutive integers such that their product is the average of a twin prime pair.
3
7, 75, 178, 209, 371, 431, 497, 516, 679, 770, 802, 830, 858, 931, 957, 1221, 1232, 1251, 1309, 1397, 1419, 1545, 1567, 1683, 1713, 1714, 1834, 1901, 1991, 2337, 2408, 2441, 2505, 2623, 2651, 2673, 2726, 3142, 3223, 3269, 3349, 3386, 3387, 3461, 3492
OFFSET
1,1
COMMENTS
7*8*9*10*11=55440 +-1 -> primes,..
LINKS
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
EXTENSIONS
Definition modified by Harvey P. Dale, May 13 2022
STATUS
approved