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 A094460 #10 Mar 13 2015 23:08:16 %S A094460 7,7,11,3,23,3,5,3,47,59,3,3,83,3,5,107,7,3,3,11,3,3,167,179,3,7,3,5, %T A094460 3,227,3,263,5,3,13,3,3,3,5,347,359,3,383,3,5,3,3,3,5,3,467,479,3,503, %U A094460 5,17,7,3,3,563,3,587,3,7,3,5,3,3,5,3,7,719,3,3,3,13,19,3,11,3,839,3,863 %N A094460 a(n) is the third term in Euclid-Mullin (EM) prime sequence initiated with n-th prime. %F A094460 a(n)= a(n-1)+ A008472(a(n-1)) - _Ctibor O. Zizka_, May 26 2008 %e A094460 First term is p[n], 2nd equals 2; 3rd term is given here as largest p-divisor of 2p+1 [occasionally safe primes, A005385]; %e A094460 4th terms listed in A051614; further terms are in A094461-A094463. %t A094460 a[x_]:=First[Flatten [FactorInteger[Apply[Times, Table[a[j], {j, 1, x-1}]]+1]]]; ta=Table[0, {168}]; a[1]=1; Do[{a[1]=Prime[j], el=10}; Print[a[el]; ta[[j]]=a[el]; j++ ], {j, 1, 168}]; ta %Y A094460 Cf. A000945, A005385, A051614-A051616, A051308 - A051335, A093778-A093782, A094152/A094153. %Y A094460 Except for first term [which is A000945(3)], the same as A023592. %K A094460 nonn %O A094460 1,1 %A A094460 _Labos Elemer_, May 06 2004