login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Alternating runs of primes and composites, with the runs of primes being of composite length and the runs of composites being of prime length.
0

%I #22 Oct 28 2021 03:58:48

%S 2,4,6,3,5,7,11,8,9,10,13,17,19,23,29,31,12,14,15,16,18,37,41,43,47,

%T 53,59,61,67,20,21,22,24,25,26,27,71,73,79,83,89,97,101,103,107,28,30,

%U 32,33,34,35,36,38,39,40,42

%N Alternating runs of primes and composites, with the runs of primes being of composite length and the runs of composites being of prime length.

%C In other words, use sequence A073846 to list alternating runs of primes and composites, with the number of elements in each run given by successive terms in A073846 - with each even-indexed term of A073846 (being itself prime) denoting the length of each run of composites and each odd-indexed term of A073846 (being itself composite) denoting the length of each run of primes.

%e a(1) = 2, this being a length 1 (1 is initial index) run of primes.

%e a(2) = 4 & a(3) = 6, 4 and 6 being a length 2 (2 is first prime) run of composites.

%e a(4) = 3, a(5) = 5, a(6) = 7, and a(7) = 11 being a length 4 (4 is first composite) run of primes.

%e a(8) = 8, a(9) = 9, and a(10) = 10, being a length 3 (3 is 2nd prime) run of composites.

%t m=10;c1=Select[Range@m,!PrimeQ@#&];p1=Prime@Range@Total@c1;p2=Prime@Range@m;c2=Select[Range[2,2Total@p2],!PrimeQ@#&][[;;Total@p2]];t1=TakeList[p1,c1];t2=TakeList[c2,p2];min=Min[Length/@{t1,t2}];Flatten@Riffle[t1[[;;min]],t2[[;;min]]] (* _Giorgos Kalogeropoulos_, Jul 30 2021 *)

%Y Cf. A000040 (primes), A002808 (composites), A073846.

%K nonn,easy

%O 1,1

%A _Walter Carlini_, Jul 07 2021