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 A100301 #5 Mar 14 2015 16:42:09
%S A100301 5,17,107,1367,31397,910457,33686837,1448533907,88360568207,
%T A100301 6450321478967,574078611627887,78648769793020247,11875964238746056997,
%U A100301 1983286027870591518167,394673919546247712114837
%N A100301 Primes resulting from A085013.
%t A100301 NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; a[0] = 1; a[n_] := a[n] = Block[{p = NextPrim[ a[n - 1]], q = Product[a[i], {i, 0, n - 1}]}, While[ !PrimeQ[p*q + 2], p = NextPrim[p]]; p]; Table[ Product[ a[i], {i, n}] + 2, {n, 16}] (* _Robert G. Wilson v_, Jan 12 2005 *)
%Y A100301 Cf. A100276. Different from A098028.
%K A100301 nonn
%O A100301 1,1
%A A100301 Herman H. Rosenfeld (herm3(AT)pacbell.net), Dec 29 2004
%E A100301 More terms from _Robert G. Wilson v_, Jan 12 2005