A174242 Least of 3 consecutive integers such that product of them is average of twin prime pairs.
1, 3, 10, 13, 14, 20, 30, 34, 40, 44, 110, 129, 135, 139, 154, 175, 188, 220, 229, 238, 273, 315, 405, 413, 440, 464, 465, 503, 520, 560, 569, 579, 583, 590, 685, 688, 695, 758, 833, 835, 859, 868, 903, 959, 1025, 1158, 1378, 1538, 1613, 1624, 1659, 1669
Offset: 1
Keywords
Crossrefs
Cf. A014574
Programs
-
Mathematica
f1[n_]:=PrimeQ[n-1]&&PrimeQ[n+1];f2[n_]:=n*(n+1)*(n+2);lst={};Do[If[f1[f2[n]],AppendTo[lst,n]],{n,8!}];lst
Comments