A173968 Sums of 3 consecutive semiprimes.
102, 258, 282, 366, 426, 606, 642, 654, 906, 1182, 1338, 1902, 2094, 2526, 2766, 3126, 3414, 3786, 4038, 4206, 4926, 5286, 5514, 5682, 5826, 5946, 6306, 6546, 6654, 6918, 7086, 7302, 7386, 7554, 7926, 8166, 8202, 9294, 10158, 10806, 11082, 11598, 11706
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=Last/@FactorInteger[n]=={1,1}||Last/@FactorInteger[n]=={2};lst={};Do[If[f[n],If[f[n+1]&&f[n+2],AppendTo[lst,3*n+3]]],{n,8!}];lst
Comments