|
|
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,?,18,?,4,?,6,?,42,?,22,?,?,?,35,26
|