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,1

Links

Table of n, a(n) for n=1..65.

Example

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;

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

Crossrefs

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

Sequence in context: A294077 A165834 A020553 * A186070 A254069 A309990

Adjacent sequences: A094458 A094459 A094460 * A094462 A094463 A094464

Keyword

nonn

Author

Labos Elemer, May 06 2004

Status

approved