%I A056756
%S A056756 1,2,7,3,12,5,13,36,25,33
%N A056756 Where n-th prime appears in Euclid-Mullin sequence A000945.
%t A056756 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}]
%Y A056756 Cf. A000945.
%Y A056756 Sequence in context: A021369 A051430 A091578 this_sequence A120861 A099130 
               A076992
%Y A056756 Adjacent sequences: A056753 A056754 A056755 this_sequence A056757 A056758 
               A056759
%K A056756 nonn,more
%O A056756 1,2
%A A056756 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 15 2000
%E A056756 Gaps that need filling: 1,2,7,3,12,5,13,36,25,33,?,18,?,4,?,6,?,42,?,
               22,?,?,?,35,26