|
Search: id:A056756
|
|
|
| A056756 |
|
Where n-th prime appears in Euclid-Mullin sequence A000945. |
|
+0
10
|
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[1]=2; f[n_] := f[n] = FactorInteger[Product[f[i], {i, 1, n - 1}] + 1][[1, 1]] ems = Table[f[n], {n, 1, 43}]; Do[Print[Position[ems, Prime[n]][[1, 1]]], {n, 1, 25}]
|
|
CROSSREFS
|
Cf. A000945.
Adjacent sequences: A056753 A056754 A056755 this_sequence A056757 A056758 A056759
Sequence in context: A021369 A051430 A091578 this_sequence A120861 A099130 A076992
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 15 2000
|
|
EXTENSIONS
|
Gaps that need filling: 1,2,7,3,12,5,13,36,25,33,?,18,?,4,?,6,?,42,?,22,?,?,?,35,26
|
|
|
Search completed in 0.002 seconds
|
