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 A098028 #17 Nov 17 2018 19:55:35
%S A098028 5,17,107,1367,15017,285287,6561557,179444267,3234846617,100280245067,
%T A098028 3710369067407,196649560572467,8309321386330967,307444891294245707,
%U A098028 24615215445537161447,961380175077106319537,78523577350789412776937
%N A098028 Smallest prime p such that p-2 is a product of exactly n distinct primes.
%e A098028 1367 is the 4th term in the sequence because it is followed by primes 1997, 2417, 3137, 3257, ... with the property 1367-2 = 3*5*7*13, 1997-2 = 3*5*7*19, 2417-2 = 3*5*7*23, 3137-2 = 3*5*11*19, 3257-2 = 3*5*7*31, ...
%t A098028 Do[s = 3; While[ ! (Length[FactorInteger[Prime[s] - 2]] == n && Max[Last /@ FactorInteger[Prime[s] - 2]] == 1), s++ ]; Print[Prime[s]], {n, 1, 8}] (* _Ryan Propper_, Sep 01 2005 *)
%t A098028 With[{pn=PrimeNu[Prime[Range[11*10^6]]-2]},Prime[#]&/@Flatten[Table[ Position[ pn,n,{1},1],{n,8}]]] (* The program takes some time to generate the first 8 terms of the sequence *) (* _Harvey P. Dale_, Jan 18 2016 *)
%K A098028 nonn,hard
%O A098028 1,1
%A A098028 _Lekraj Beedassy_, Sep 10 2004
%E A098028 Extended by _Ray Chandler_, Sep 18 2004
%E A098028 One more term from _Ryan Propper_, Sep 01 2005
%E A098028 More terms from _Don Reble_, Apr 03 2006