A094463 a(n) is the 7th term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.

5, 5, 199, 5, 433, 1601, 31, 457, 7109609443, 5, 7, 127, 71, 5, 7, 2620003, 4583, 1217, 5, 67, 6729871, 39334891, 5, 53, 461, 449885311, 1511, 197, 7, 22008559, 19, 1249, 7, 7, 3217, 7, 7, 3931, 7, 110663370509047, 375155719, 29, 28529671, 23, 24603331

Offset: 1

Author

Labos Elemer, May 06 2004

Keywords

• nonn

Examples

			First term is p(n), 2nd equals 2;
3rd term is A091460 as largest p-divisor of 2p+1
(occasionally safe primes, A005385);
4th terms listed in A051614; 5th term is in A094461;
6th-7th terms in A094462, A094463;
		

Crossrefs

Cf. A000945, A005385, A051614-A051616, A051308-A051335, A093778-A093782, A094152-A094153, A094460-A094463.

Programs

Mathematica

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=6};Print[a[el];ta[[j]]=a[el];j++ ], {j, 1, 168}];ta