|
%I #17 Jul 07 2018 14:26:14
%S 43,43,3,43,3,79,3,5,3,3,11,223,3,7,3,3,827,367,13,3,439,5,3,3,11,5,
%T 619,3,5,3,7,3,3,5,5,907,23,11,3,3,3,1087,3,19,3,5,7,13,3,5,3,3,1447,
%U 3,3,3,3767,1627,1663,3,1699,3,19,5,1879,3,1987,7,3,5,4943,3,2203,2239,5,23
%N 4th term in Euclid-Mullin prime sequence started with n-th prime (cf. A000945).
%C First term in Euclid-Mullin sequence is p (say), 2nd term (if p odd) is 2, 3rd term is A023592.
%H Vincenzo Librandi, <a href="/A051614/b051614.txt">Table of n, a(n) for n = 1..1000</a>
%e E.g., (5,2,11,3), (89,2,179,3), (17,2,5,3), (2,3,7,43), (61,2,3,367).
%t a[n_] := (Clear[f]; f[1] = Prime[n]; f[k_] := f[k] = FactorInteger[Product[f[i], {i, 1, k-1}]+1][[1, 1]]; f[4]); Table[a[n], {n, 1, 76}] (* _Jean-François Alcover_, Feb 05 2014 *)
%Y Cf. A000945, A000040, A005384, A005385, A023592, A051308 - A051335.
%K nonn,easy,nice
%O 1,1
%A _Labos Elemer_
|
