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 A051317 #21 Nov 28 2015 14:45:40 %S A051317 41,2,83,3,7,47,71,29,653,5,173,23,103058819,11,389,73161901, %T A051317 168593357,13,45613,347,211,53,400947612985987,28837,35111, %U A051317 913011302795748880783905085999338914209329333652950191830525020998365540320068611 %N A051317 Euclid-Mullin sequence (A000945) with initial value a(1)=41 instead of a(1)=2. %H A051317 Robert Price, <a href="/A051317/b051317.txt">Table of n, a(n) for n = 1..37</a> %t A051317 a[1]=41; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, n-1} ] ] ] ]; Array[a, 15] %o A051317 (PARI) spf(n)=my(f=factor(n)[1, 1]); f %o A051317 first(m)=my(v=vector(m)); v[1]=41; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v \\ _Anders Hellström_, Nov 26 2015 %Y A051317 Cf. A000945, A000946, A005265, A005266. %K A051317 easy,nonn %O A051317 1,1 %A A051317 _Labos Elemer_