OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Chris K. Caldwell, Cunningham Chain (PrimePages, Prime Glossary).
Wikipedia, Cunningham chain.
EXAMPLE
Triangle begins:
2, 3, 5;
7, 13;
11;
17;
19, 37, 73;
23;
29;
31, 61;
41;
...
MATHEMATICA
Block[{a = {2}, j = 1, k, p}, Do[k = j; If[PrimeQ@ a[[-1]], AppendTo[a, 2 a[[-1]] - 1], While[! FreeQ[a, Set[p, Prime[k]]], k++]; j++; Set[a, Append[a[[1 ;; -2]], p]]], 10^3]; a]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Michael De Vlieger, Nov 17 2020
STATUS
approved