|
|
A094460
|
|
a(n) is the third term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.
|
|
6
|
|
|
7, 7, 11, 3, 23, 3, 5, 3, 47, 59, 3, 3, 83, 3, 5, 107, 7, 3, 3, 11, 3, 3, 167, 179, 3, 7, 3, 5, 3, 227, 3, 263, 5, 3, 13, 3, 3, 3, 5, 347, 359, 3, 383, 3, 5, 3, 3, 3, 5, 3, 467, 479, 3, 503, 5, 17, 7, 3, 3, 563, 3, 587, 3, 7, 3, 5, 3, 3, 5, 3, 7, 719, 3, 3, 3, 13, 19, 3, 11, 3, 839, 3, 863
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
First term is p[n], 2nd equals 2; 3rd term is given here as largest p-divisor of 2p+1 [occasionally safe primes, A005385];
|
|
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=10}; Print[a[el]; ta[[j]]=a[el]; j++ ], {j, 1, 168}]; ta
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|