This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A103614 #14 Mar 03 2025 14:54:39
%S A103614 4198,33262,1564258,6672202,7566178,18181978,20193022,178433278,
%T A103614 187466722,229580146,293158126,467821918,1125878062,1341880018,
%U A103614 4317369778,5198554618,8493529942,10138087306,10594343758,20940647698
%N A103614 Semiprimes of the form prime(n)*prime(n+1)*prime(n+2) - 1.
%C A103614 This is the three-consecutive-prime minus one equivalent of A103533, which is Giovanni Teofilatto's two-consecutive-prime minus one sequence.
%H A103614 Harvey P. Dale, <a href="/A103614/b103614.txt">Table of n, a(n) for n = 1..1000</a>
%e A103614 n: prime(n) * prime(n+1) * prime(n+2) - 1
%e A103614 6: 13 *17 *19 - 1 = 4198 = 2 * 2099
%e A103614 10: 29 * 31 * 37 - 1 = 33262 = 2 * 16631
%e A103614 29: 109 * 113 * 127 - 1 = 1564258 = 2 * 782129
%e A103614 42: 181 * 191 * 193 -1 = 6672202 = 2 * 3336101
%e A103614 44: 193 * 197 * 199 -1 = 7566178 = 2 * 3783089
%e A103614 55: 257 * 263 * 269 -1 = 18181978 = 2 * 9090989
%e A103614 57: 269 * 271 * 277 -1 = 20193022 = 2 * 10096511
%e A103614 102: 557 * 563 * 569 -1 = 178433278 = 2 * 89216639
%t A103614 Bigomega[n_]:=Plus@@Last/@FactorInteger[n]; SemiprimeQ[n_]:=Bigomega[n]==2; Select[Table[Prime[n]*Prime[n+1]*Prime[n+2]-1, {n, 1000}], SemiprimeQ] (* _Ray Chandler_, Mar 29 2005 *)
%t A103614 Select[Times@@#-1&/@Partition[Prime[Range[500]],3,1],PrimeOmega[#]==2&] (* _Harvey P. Dale_, Mar 03 2025 *)
%o A103614 (PARI) for(n=1,420,if(bigomega(k=prime(n)*prime(n+1)*prime(n+2)-1)==2,print1(k,","))) (Brockhaus)
%Y A103614 Cf. A000040, A001358, A006881, A103533, A103746, A104874, A104875.
%K A103614 easy,nonn
%O A103614 1,1
%A A103614 _Jonathan Vos Post_, Mar 24 2005
%E A103614 Extended by _Ray Chandler_ and _Klaus Brockhaus_, Mar 29 2005