# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a051335
Showing 1-1 of 1

%I A051335 #16 Aug 18 2015 07:59:51
%S A051335 127,2,3,7,5,149,19,41,23899,139,43,761,281,17,53,2551,23,20149,
%T A051335 100720363856036298033578901613089271,31,179,11,13,523,282995646721,
%U A051335 2871347,83,10744429,1031,427773048135533,97,78506876242349,67
%N A051335 Euclid-Mullin sequence (A000945) with initial value a(1)=127 instead of a(1)=2.
%H A051335 Robert Price, <a href="/A051335/b051335.txt">Table of n, a(n) for n = 1..47</a>
%t A051335 a[1]=127; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n-1} ] ] ] ]; Array[a, 10]
%o A051335 (PARI) spf(n)=my(f=factor(n)[1,1]);f;
%o A051335 first(m)={my(v=vector(m)); v[1]=127; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v;} /* _Anders Hellström_, Aug 18 2015 */
%Y A051335 Cf. A000945, A000946, A005265, A005266.
%K A051335 easy,nonn
%O A051335 1,1
%A A051335 _Labos Elemer_

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE