cp's OEIS Frontend

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.

A051320 Euclid-Mullin sequence (A000945) with initial value a(1)=53 instead of a(1)=2.

This page as a plain text file.
%I A051320 #22 Nov 28 2015 14:45:57
%S A051320 53,2,107,3,7,11,2620003,707431,1993,4409,131,17,5,858127,79,163,19,
%T A051320 46061,31,17707,157,43,3135504913004354085487249,9893869,149,
%U A051320 1001472037,16979051,387853,61,13,227,41,206779,443,37,1709
%N A051320 Euclid-Mullin sequence (A000945) with initial value a(1)=53 instead of a(1)=2.
%H A051320 Robert Price, <a href="/A051320/b051320.txt">Table of n, a(n) for n = 1..48</a>
%t A051320 a[1]=53; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, n-1} ] ] ] ]; Array[a, 15]
%o A051320 (PARI) spf(n)=my(f=factor(n)[1, 1]); f
%o A051320 first(m)=my(v=vector(m)); v[1]=53; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v \\ _Anders Hellström_, Nov 26 2015
%Y A051320 Cf. A000945, A000946, A005265, A005266.
%K A051320 easy,nonn
%O A051320 1,1
%A A051320 _Labos Elemer_