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 A051311 #19 Aug 23 2015 02:15:28 %S A051311 17,2,5,3,7,3571,31,395202571,13,29,137,23,97,1896893, %T A051311 34138453466895150823580146142491,4639,61,181,43,19,11,59, %U A051311 25292522503108044617,4909,18305191,467 %N A051311 Euclid-Mullin sequence (A000945) with initial value a(1)=17 instead of a(1)=2. %H A051311 Robert Price, <a href="/A051311/b051311.txt">Table of n, a(n) for n = 1..30</a> %t A051311 a[1]=17; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n-1} ] ] ] ]; Array[a, 10] %o A051311 (PARI) spf(n)=factor(n)[1,1] %o A051311 first(m)=my(v=vector(m)); v[1]=17; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v; \\ _Anders Hellström_, Aug 22 2015 %Y A051311 Cf. A000945, A000946, A005265, A005266. %K A051311 nonn %O A051311 1,1 %A A051311 _Labos Elemer_