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 A051313 #18 Nov 22 2015 21:59:04
%S A051313 23,2,47,3,13,84319,7109609443,463,23403050994721829453179,7,5,57367,
%T A051313 239,40237,
%U A051313 10575444619218059847586376042094152838881224222904607376771,31333,742759,9444637217
%N A051313 Euclid-Mullin sequence (A000945) with initial value a(1)=23 instead of a(1)=2.
%H A051313 Robert Price, <a href="/A051313/b051313.txt">Table of n, a(n) for n = 1..37</a>
%t A051313 a[1]=23; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n-1} ] ] ] ]; Array[a, 10]
%o A051313 (PARI) spf(n)=factor(n)[1, 1]
%o A051313 first(m)=my(v=vector(m)); v[1]=23; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v; \\ _Anders Hellström_, Nov 22 2015
%Y A051313 Cf. A000945, A000946, A005265, A005266.
%K A051313 nonn
%O A051313 1,1
%A A051313 _Labos Elemer_
%E A051313 a(18)-a(37) from _Robert Price_, Jul 17 2015