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.

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

This page as a plain text file.
%I A051324 #21 Oct 10 2023 18:52:10
%S A051324 71,2,11,3,43,201499,67,5,487,19,967,13,131,17,
%T A051324 3523392679146994953040171,7,633046028131441,197,1313225762816449,
%U A051324 22441,29,7039,2357,12264112894355231632110401532068053014661
%N A051324 Euclid-Mullin sequence (A000945) with initial value a(1)=71 instead of a(1)=2.
%H A051324 Tyler Busby, <a href="/A051324/b051324.txt">Table of n, a(n) for n = 1..44</a> (terms 1..29 from Robert Price)
%t A051324 a[1]=71; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n-1} ] ] ] ]; Array[a, 10]
%o A051324 (PARI) spf(n)=my(f=factor(n)[1, 1]); f
%o A051324 first(m)=my(v=vector(m)); v[1]=71; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v \\ _Anders Hellström_, Dec 04 2015
%Y A051324 Cf. A000945, A000946, A005265, A005266.
%K A051324 nonn
%O A051324 1,1
%A A051324 _Labos Elemer_
%E A051324 a(24) from _Robert Price_, Jul 11 2015