A094461 a[n] is the 5th term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.

13, 13, 331, 13, 7, 6163, 7, 571, 13, 10267, 23, 31, 7, 13, 17, 7, 3, 7, 5227, 43, 7, 2371, 7, 61, 19, 3, 7, 13, 3271, 13, 5, 37, 4111, 43, 3, 13, 47, 7, 5011, 360187, 7, 73, 13, 22003, 23, 7, 8863, 5, 7, 6871, 181, 193, 7, 7, 11, 139, 3, 7, 1297, 73, 7, 7, 31, 3, 7

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