%I #22 Nov 14 2021 01:21:48
%S 2,5,11,23,47,3,7,13,17,19,29,59,31,37,41,83,167,43,53,107,61,67,71,
%T 73,79,89,179,359,719,1439,2879,97,101,103,109,113,227,127,131,263,
%U 137,139,149,151,157,163,173,347,181,191,383,193,197,199,211,223,229,233
%N Rearrangement of primes into Germain groups (or Cunningham chains).
%C In each group, p(i+1) = 2*p(i)+1.
%C The groups are also known as Cunningham chains of the first kind.
%H Michael De Vlieger, <a href="/A075712/b075712.txt">Table of n, a(n) for n = 1..10000</a>
%e The groups are:
%e {2, 5, 11, 23, 47},
%e {3, 7},
%e {13},
%e {17},
%e {19},
%e {29, 59},
%e {31},
%e {37},
%e {41, 83, 167},
%e {43},
%e {53, 107},
%e {61},
%e {67},
%e {71},
%e {73},
%e {79},
%e {89, 179, 359, 719, 1439, 2879},
%e {97},
%e {101},
%e {103},
%e {109},
%e {113, 227},
%e {127},
%e {131, 263},
%e {137},
%e {139},
%e ...
%t 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] (* _Michael De Vlieger_, Nov 17 2020 *)
%o (PARI) first(n) = my(res=List([2,5,11,23,47])); forprime(p=3, oo, if(!isprime((p-1)>>1), listput(res,p); c = 2*p+1; while(isprime(c), listput(res,c); c=2*c+1)); if(#res>n,return(res))); res \\ _David A. Corneth_, Nov 13 2021
%Y Cf. A005384, A059452, A059453, A059455, A059456, A053176.
%Y See also A181697.
%Y See A059456 for initial terms, A338945 for lengths.
%K nonn,tabf
%O 1,1
%A _Zak Seidov_, Oct 03 2002
%E Edited by _N. J. A. Sloane_, Nov 13 2021
%E More terms from _David A. Corneth_, Nov 13 2021