A174243 Least of 5 consecutive integers such that their product is the average of a twin prime pair.

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

Author

Vladimir Joseph Stephan Orlovsky, Mar 13 2010

Keywords

• nonn

Comments

7*8*9*10*11=55440 +-1 -> primes,..

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A014574, A174242

Programs

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 *)

Extensions

Definition modified by Harvey P. Dale, May 13 2022