

A056756


Where nth prime appears in EuclidMullin sequence A000945.


9



1, 2, 7, 3, 12, 5, 13, 36, 25, 33, 50, 18
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A353408 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



