login
A094461
a[n] is the 5th term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.
4
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
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
KEYWORD
nonn
AUTHOR
Labos Elemer, May 06 2004
STATUS
approved