A056756 Where n-th prime appears in Euclid-Mullin sequence A000945.

1, 2, 7, 3, 12, 5, 13, 36, 25, 33, 50, 18

Offset

1,2

Links

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

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.

Sequence in context: A365966 A258249 A256448 * A120861 A354368 A236542

Adjacent sequences: A056753 A056754 A056755 * A056757 A056758 A056759

Keyword

nonn,hard,more

Author

Robert G. Wilson v, Aug 15 2000

Extensions

Gaps that need filling: 1, 2, 7, 3, 12, 5, 13, 36, 25, 33, 50, 18, ?, 4, ?, 6, ?, 42, ?, 22, ?, ?, ?, 35, 26

Two more terms from Sean A. Irvine, Sep 20 2012

Status

approved