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

Author

Robert G. Wilson v, Aug 15 2000

Keywords

• nonn
• hard
• more

Crossrefs

Cf. A000945.

Programs

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}]

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