A338946 -id:A338946 - cp's OEIS frontend

A338945 Lengths of Cunningham chains of the first kind that are sorted by first prime in the chain.

5, 2, 1, 1, 1, 2, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1

Offset: 1

Michael De Vlieger, Nov 17 2020

nonn

Row lengths of A075712.

			We begin with the smallest prime 2. Since 2(5) + 1 = 11 is prime, further, 2(11) + 1 = 23, 2(23) + 1 = 47 are prime but 2(47) + 1 = 95 is not, we have the complete chain {2, 5, 11, 23, 47} of length 5, thus a(1) = 5.
We resume with 3, since 3 has not appeared in any chain generated thus far. Since 2(3) + 1 = 7, but 2(7) + 1 = 15, we have the complete chain {3, 7}, therefore a(2) = 2.
Starting from 13, we find 2(13) + 1 = 27, thus we have a singleton chain and have a(3) = 1, etc.

Michael De Vlieger, Table of n, a(n) for n = 1..10000
Chris K. Caldwell, Cunningham Chain (PrimePages, Prime Glossary).
Wikipedia, Cunningham chain.

Cf. A075712, A338944, A338946.

Block[{a = {2}, b = {}, j = 0, k, p}, Do[k = Length@ b + 1; If[PrimeQ@ a[[-1]], AppendTo[a, 2 a[[-1]] + 1]; j++, While[! FreeQ[a, Set[p, Prime[k]]], k++]; AppendTo[b, j]; Set[j, 0]; Set[a, Append[a[[1 ;; -2]], p]]], {10^3}]; b]

A338944 Rearrangement of primes into complete Cunningham chains of the second kind, sorted by first prime in the chain.

Original entry on oeis.org

2, 3, 5, 7, 13, 11, 17, 19, 37, 73, 23, 29, 31, 61, 41, 43, 47, 53, 59, 67, 71, 79, 157, 313, 83, 89, 97, 193, 101, 103, 107, 109, 113, 127, 131, 137, 139, 277, 149, 151, 163, 167, 173, 179, 181, 191, 197, 199, 397, 211, 421, 223, 227, 229, 457, 233, 239, 241

Offset: 1

Michael De Vlieger, Nov 17 2020

Analogous to A075712 but pertaining instead to primes of the form found in A005382.

			Triangle begins:
2, 3, 5;
7, 13;
11;
17;
19, 37, 73;
23;
29;
31, 61;
41;
...

Michael De Vlieger, Table of n, a(n) for n = 1..10000
Chris K. Caldwell, Cunningham Chain (PrimePages, Prime Glossary).
Wikipedia, Cunningham chain.

Cf. A005382, A075712, A338946.

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]

cp's OEIS Frontend

A338945 Lengths of Cunningham chains of the first kind that are sorted by first prime in the chain.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica